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Preface 


This publication is a reference manual for the programmer Related Publications 

using the IBM System/3 Basic Assembler language. This 

language provides facilities for representing machine The IBM System/3 Models 8, 10, 12, and 15 Components 
usable instructions symbolically on a one-for-one basis. Reference Manual, GA21-9236, contains specifications 


The symbolic representations are translatéd by the IBM governing the use of assembler language instructions. 


System/3 Basic Assembler into the machine usable form 
necessary for running a program on the System/3. 


System/3 Model 8 


The System/3 Model 8 is supported by System/3 Model 10 
Disk System control programming and program products. 
The facilities described in this publication for the Model 10 
are also applicable to the Model 8, although the Model 8 is 
not referenced. It should be noted that not all devices 

and features which are available on the Model 10 are avail- 
able on the Model 8. Therefore, Model 8 users should be 
familiar with the contents of [BM System/3 Model 8 
Introduction, GC21-5114. 


Eighth Edition (April 1975) 
This is a minor revision of SC21-7509-5 incorporating Technical Newsletters: 


SN21-5385 March 17, 1976 
SN21-5434 December 31, 1976 
SN21-5536 June 24, 1977 


This revision makes some changes to various pages and introduces information concerning 
the IBM System/3 Model 8. Changes to text and small changes to illustrations are 
indicated by a vertical line at the left of the change; new or extensively revised 
illustrations are denoted by the symbol @ at the left of the figure caption. 


This edition applies to version 12, modification 00 of IBM System/3 Model 10 Disk System 
Basic Assembler (Program Product Number 5702-AS1); version 03, modification 00 of 
IBM System/3 Model 15 Basic Assembler (Program Product Number 5704-AS1); and to all 
subsequent versions and modifications unless otherwise indicated in new editions or 
technical newsletters. Changes are continually made to the specifications herein; before 
using this publication in connection with the operation of IBM Systems, consult the 

latest IBM System/3 Bibliography, GC20-8080, for the editions that are applicable and 
current. 


Requests for copies of IBM publications should be made to your IBM representative or to 
the branch office serving your locality. 


A Reader’s Comment Form is at the back of this publication. If the form is gone, address 


your comments to IBM Corporation, Publications, Department 245, Rochester, 
Minnesota 55901. 


©Copyright International Business Machines Corporation 1970, 1971, 1972, 1973, 1975 
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The IBM System/3 Basic Assembler language is a 
symbolic language. That is, it must be translated into a 
form usable by the computer before a program can be 
run. The computer-usable form is called machine 
language, and the IBM System/3 Basic Assembler language 
provides a convenient method for representing, on a 
one-for-one basis, machine language instructions and 
related data necessary to write a program for IBM 
System/3. This one-for-one relationship to machine 
language instructions gives assembler language great 
programming versatility. 


The assembler language is composed of symbols, called 
mnemonics, which are used to represent the operation 
codes of two types of instruction statements: 


1. Machine instruction statements are the symbols 
that represent machine language instructions on a 
one-for-one basis. Note that symbolically repre- 
sented machine instructions are translated into 
machine language by the assembler. 


2. Assembler instruction statements are instructions 
which control the functions of the assembler. Each 
assembler instruction statement causes the assembler 
to perform a specific operation during the assembly 
process. 


The IBM System/3 Basic Assembler: 
e Processes instructions written in assembler language. 


e Translates the assembler language instructions into 
machine language. 


e Assigns storage locations. 


e Performs other functions necessary to produce an 
executable machine language program. 


In order to call the assembler from its storage 

location, a specific set of OCL (operation control 
language) instructions must be used. Following these 
OCL instructions, the user may elect to include an 
OPTIONS instruction, a facility which allows him to 
take advantage of various combinations of output listings 
and punched decks. 


Introduction 


There are certain procedures for storing assembler routines 
on the Model 10 Disk System, Model 12, and Model 15 R 
(relocatable) Libraryand for loading assembler object pro- 
grams into main storage. These procedures, as well as the 
other items mentioned briefly above, are discussed more 
fully in the text. 


MINIMUM SYSTEM REQUIREMENTS 


The minimum system configuration and optional device 
support for the Basic Assembler program is shown in the 
IBM System/3 Models 6, 8, 10, and 12 System Generation 
Reference Manual, GC21-5126 and in the JBM System/3 
Model 15 System Generation Reference Manual, 
GC21-7616. 
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MAIN STORAGE REQUIREMENTS 


The Model 10 Disk System Basic Assembler (5702-AS1) 
requires 8,192 bytes of main storage for execution, 
exclusive of control program requirements. 


The Model 12 Basic Assembler (5705-AS1) and the 
Model 15 Basic Assembler (5704-AS1 or 5704-AS2) 
require 10,240 bytes of main storage for execution, 
exclusive of control program requirements. 


The IBM System/3 Basic Assembler language is a symbolic 
language that provides a convenient method for 
representing, on a one-for-one basis, machine language 
instructions. The symbolic representations in assembler 
language coding are translated by the IBM System/3 
Basic Assembler into the machine language form usable 
by the computer. In order to code in assembler 
language, the user must become familiar with certain 
terms, coding conventions, instructions, and other 
features of the language. The remainder of this chapter 
deals with these items. 


BASIC STATEMENT FORMAT 


A statement coded in assembler language can contain up 
to four entries from left to right: Name, Operation, 
Operand, and Remark. See Assembler Coding Conventions 
in this manual for an explanation of the contents and 
functions of each entry. 
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TERMS AND EXPRESSIONS 


A term is a single symbol, self-defining value, or location 
counter reference which can be used only in the operand 
field of an assembler language instruction. The three 


types of terms are described under Terms in this section. 


An expression consists of one or more terms. It is used 
to specify the operand fields of assembler language 
instructions. Terms and expressions are classed as either 
absolute or relocatable. A term or expression is absolute 
if its value is not changed when the assembled program in 
which it is used is relocated in main storage. A term or 
expression is relocatable if its value is changed when the 
program in which it is used is relocated. 
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Program relocation is the loading of an assembled 
program (object program) into a different area of main 
storage from that which was originally assigned by the 
assembler. The difference (in bytes) between the 
originally assigned address of the object program and the 
address of the relocated object program is the amount of 
relocation. The addresses assigned to all instructions and 
data in the relocated program are changed by the amount 


Storage 
Address 


0 


Main Storage 


2000 


: Object Program A 


First Loading 


Figure 1. Program Relocation 


of relocation. In Figure 1, Object Program A is initially 
loaded at address 2000 in main storage. When Object 
Program A is loaded a second time, it is placed at address 
3000 in main storage. The amount of relocation is 1000 
bytes. Therefore, the values of all relocatable terms and 
expressions used in Object Program A would be increased 
by 1000 during the second loading. 


Address: Main Storage 


Object Program A : 


Second Loading 


* The amount of program relocation is 1000 bytes. 


TERMS 


Three types of terms are used in the IBM System/3 
Basic Assembler language. 


e Symbol 
e Self-defining term 


e Location counter reference 


The Symbol 


A symbol is a character or combination of characters 
used to represent storage locations, instructions, input/ 
output units, registers, or arbitrary values. A symbol can 
be used in either the name field or the operand field of 

a statement. When used in the name field, the symbol is 
called a name field entry. When used in the operand 
field, the symbol is called a symbolic term. 


When the assembler finds a symbol in the name field of 
a Statement, it assigns to that symbol an address value 
attribute. See Addressing in this section. The assembler 
also assigns a length attribute to the symbol, which is 
the number of bytes in the storage field named by the 
symbol. There are exceptions. When the assembler en- 
counters EQU, START, or TITLE statements, it does 
not assign the usual attributes. EQU name field entries 
derive their values from the operand, START name field 
entries are assigned a length of 1, and TITLE name field 
entries are assigned no values at all. 


The same symbol cannot be used as a name entry more 
than once within a program with the exception of the 
TITLE card. In order for a symbol to be used in the 
operand field, it must be defined (that is, used as a name) 
on an instruction other than a TITLE card somewhere in 
the program. Once it is defined, the symbol may appear 
in any number of operands. Whether the symbol is used 
aS a name or an operand, these rules must be followed: 


1. |The symbol can consist of no more than six 
characters, the first of which must be either 
alphabetic or $, #, @. The other characters can be 
any combination of alphabetic, numeric, or $, #,@. 


2. Blanks and special characters other than $, #, @ 
cannot be used in a symbol. 


The Self-Defining Term 


The self-defining term is a term which specifies an actual 
value or bit configuration. 


The value expressed by the self-defining term is taken 
literally by the assembler and is assembled into the instruc- 
tion. Like all terms, the self-defining term is used only 

in the operand field. 

There are four types of self-defining terms: 

e@ Decimal 

e Hexadecimal 


e Binary 


e Character 


Decimal Self-Defining Terms 


A decimal self-defining term is an unsigned decimal 
number written as a sequence of decimal digits. High 

order zeros may be used, such as in 0003. If a decimal 
term is used as an address, its value cannot exceed the 
number of bytes in main storage. A decimal term consists 
of no more than five digits and cannot exceed a value of 
65,535. This value is equivalent to the binary value 

that can be contained in two bytes. A decimal self-defining 
term is assembled as its binary equivalent. 


Examples: 16 132 00006 43678 


In the following example, a decimal self-defining term is 
used in a Move Immediate (MVI) instruction. The binary 
equivalent of 25 would be placed in the 1-byte area 
referenced by the symbol, COST 


| 
NAME | OPERATION 1 OPERAND 


ALPHA =i! MVI ' COST, 25 
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Hexadecimal Self-Defining Terms 


Hexadecimal self-defining terms can consist of up to 
four hexadecimal digits enclosed in apostrophes and 
preceded by the letter X. 
Examples: X‘C34A’ X‘O4F’ X‘6’ X‘DE’ 
Each digit is assembled into its 4-bit binary equivalent. 


Therefore, the maximum value would be X‘FFFF’ 
(65,535). 


The following is an example of the use of a hexadecimal 
self-defining term. The 1-byte area at SWITCH would 
contain the hexadecimal value FO (binary, 11110000) 
after execution of the instruction. . 


. 
NAME | OPERATION 


| OPERAND 


BETA ! MvVI ' SWITCH, X‘FO’ 


Character Self-Defining Terms 


Character self-defining terms consist of one or two 
characters enclosed by apostrophes and preceded by the 
letter C; such as C‘A3’. Any of the valid punch 
combinations can be used in a character self-defining 
term. 


Examples: C‘A9’ C‘EA’? C‘LB’ C3’ 


Because certain terms in the assembler language must be 
enclosed by apostrophes (such as C‘EA’), for every 
apostrophe that is used as a character in a self-defining 
term, two must be written. For example, the characters 
A’ would be written as C‘A””’. 


In the following example, a dollar sign ($) would be 
moved into the byte field at REPORT. 


NAME | OPERATION | OPERAND 


| REPORT, C’$’ 


Binary Self-Defining Terms 


Binary self-defining terms are written as a sequence of 
1’s and 0’s enclosed in apostrophes and preceded by the 
letter B; such as B‘1011’. This term would appear in 
storage as 00001011. The high-order (leftmost) bits 

are padded with 0-bits to make a multiple of eight bits of 
data (one or two bytes). A maximum of 16 bits of data 
can be represented in each term. In the following 
example of a Move Immediate instruction, the binary 


information will be moved into the 1-byte field at AREA. 


NAME OPERATION ! OPERAND 


GAMMA ' mvi | 


AREA, B’10110011’ 


Location Counter Reference 


Location Counter: The location counter is an internal 
counter, maintained by the assembler, which always 
points to the next available storage location. As each 
new statement is processed, the location counter is 
increased by the number of bytes in the assembled 
statement. The assembler uses the current address 

in the location counter to assign consecutive storage 
addresses to program statements. 


Location Counter Reference: A location counter 
reference is an asterisk (*) used as a term in the operand 
of an instruction. When the assembler encounters 

an asterisk, it substitutes the current value of the 
location counter (which always points to the next 
available storage location) for the asterisk. 


EXPRESSIONS 


An expression consists of an arithmetic combination of 
one or more terms. In a multi-term expression, terms 
must be separated by an arithmetic operator: the 
arithmetic operators are + for addition, — for subtraction, 
and * for multiplication. 
AREA+X‘2D’ 


Examples: N—25 R+t15 A*8 


The rules for coding an expression are: 


1. | Two terms or two operators must not be used 
consecutively in an expression. 


2. Parentheses cannot be used in an expression. 


3. Only absolute terms can be used in a multiply 
operation. 


4. Blanks are not allowed in an expression. 


. Using the Model 10 disk system basic assembler, 
an expression may consist of only one term when 
that term is a symbol used as the operand of an 
EXTRN statement. 


b. Using the Model 15 basic assembler, if the expres- 


sion contains an external symbol, then the 
expression must be of the form A or Ate. Aisa 
symbol used as the operand of an EXTRN state- 
ment and e is an absolute expression. 


Note: An Ate expression must not be in a Model 
10 subroutine with RPG II. 


If there is more than one term in the expression, the 
terms are reduced to a single value as follows: 


1. Each term is evaluated separately. 


2. Arithmetic operations are then performed in a 
left-to-right sequence, except that multiplication 
is performed before addition or subtraction. An 
example would be A+B*C, which would be 
evaluated as A+(B*C), not (A+B)*C. The result 
would be the value of the expression. 


3. The intermediate result of the expression 
evaluation is a 3-byte, or 24-bit value. Intermediate 
ue must be in the range of —2 as through 
2°*—1. 


Negative values are carried in the two’s-complement 
form. The final value of the expression is the truncated, 
rightmost 16 bits of the result. The value of the 
expression before truncation must be in the range of 
-65536 through +65535. A negative result is considered 
to be a 2-byte positive value. 


Note: In address constants the full 24-bit final expression 
result is truncated on the left to fit the length of the con- 
stant. 


Absolute Expressions: An expression is considered 
absolute if its value is unaffected by program relocation. 


An absolute term may be a non-relocatable symbol, or 
any of the self-defining terms. All arithmetic operations 
are permitted between absolute terms. 


An absolute expression can contain relocatable terms or 
a combination of relocatable and absolute terms under 
the following conditions: 


1. The expression must contain an even number of 
relocatable terms. 


2. The relocatable terms must be paired and each 
pair must consist of terms with opposite signs. 
The paired terms need not be adjacent. 


3.  Relocatable terms cannot be-used in a multipli- 
cation operation. 


Pairing relocatable terms with opposite signs cancels 

the effect of the relocation, because both terms would be 
relocated by the same value. Therefore, the value 
represented by the paired terms would, in effect, remain 
constant regardless of the program relocation. For 
example, in the absolute expression A—Y+X, A is an 
absolute term and X and Y are relocatable terms. If A 
equals 50, Y equals 25, and X equals 10, the value of 
the expression would be 35: If X and Y are relocated by 
a factor of 100, their values would become 110 and 125, 
respectively. However, the expression would still 
evaluate as 35 (S0—125+110=35). Absolute expressions 
reduce to a single absolute value. 


Relocatable Expressions: A relocatable expression is 
one whose value changes by the amount of relocation 
when the program in which it is used is relocated. All 
relocatable expressions must reduce to a positive 
value. 
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A relocatable expression can be a combination of 
relocatable and absolute terms under the following 
conditions: 


\e There must be an odd number of relocatable 
terms. 


2. All relocatable terms, except one, must be paired 
and each pair must consist of terms with opposite 
signs. The paired terms need not be adjacent. 


3. The unpaired term must not be immediately 
preceded by a minus sign. 


4.  Relocatable terms cannot enter into a multiplication 
operation. 


All terms in a relocatable expression are reduced to a 
single value. This single value is the value of the unpaired 
relocatable term after it has been adjusted (displaced) by 
the resultant value of the other terms in that expression. 
For example, in the expression W—X+Y where W, X, 

and Y are relocatable terms; and W=10, X=3, Y=1; 

the result would be the relocatable value of 8. 


If the program is relocated by 100 bytes, the resultant 
value of the expression would be increased by the amount 
of relocation (100), giving the expression a value of 108. 


In the following expression, a combination of absolute 
and relocatable terms are used: At+tF*G—D+tB. A, D, 
and B are relocatable terms; F and G are absolute 

terms. When given the values A=3, B=2, D=5, F=1, and 
G=4, the result would be a relocatable value of 4. The 
multiplication occurred first, resulting in 4; then the 
addition and subtraction of the other terms, including 
the result of the multiplication, was performed in a 
left-to-right direction. The result of the arithmetic 
operations is a relocatable value of 4 for this expression. 


Upon relocation, the value of this expression can be 
determined by adding the amount of relocation to all 
relocatable terms. 


ASSEMBLER CODING CONVENTIONS 


This section explains the general coding conventions 
associated with the IBM System/3 Basic Assembler 
language. When coding in assembler language, the 
programmer uses the IBM System/3 Assembler Coding 
Form (Figure 2). 


The Statement Format 


Each line on the coding form is divided into two segments: 
Statement (columns 1-87), and Sequence (columns 89-96). 


The Statement segment can contain up to four entries, 
from left to right: Name, Operation, Operand and 
Remark. The Name field is column dependent. It 
must start in column 1, unless otherwise specified by 
the ICTL assembler instruction (see Assembler 
Instruction Statements). All other entries can start 

in any column, as long as there is at least one blank 
separating each entry and the entries remain in the 
stated order. Figure 3 is a diagram of assembler 
statement entries. 


52908 


ART: 08 


Form X21-9107 
Printed in U.S.A. 
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Identification- 
Sequence 
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s 
ts 
4 
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n~ 


Remarks 


PUNCHING 
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IBM System/3 Basic Assembler Coding Form 
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Operand 


14 15 16 17 18 19 20 21 22 23 24 


aS 
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AR CAE RS Aes (RE RR he 
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Fa ES SERA (NE CR CF Pa aes a SE He 
poate tft a a 


PROGRAM 


= 


PROGRAMMER 


" Figure 2. IBM System/3 Basic Assembler Coding Form 
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Name Entry 


e Optional or required depending on the specific 
instruction. 


e Up to six characters can be used in a name. 
e First character must be alphabetic (including $, #, @). 


e First character must be in column 1 unless otherwise 
specified by an ICTL assembler instruction. 


e No special characters or blanks in a name (except 


$,#, @). 
e Atleast one blank must follow the Name entry or 
appear in the first Name entry column (if no name is 
entered). 
Operation Entry 


e@ Required entry. 


@ Contains mnemonic operation code (list of valid machine 
codes is in Appendix A. Machine Instructions). 


e Must be followed by a blank. 


Operand Entry 


® Optional or required depending on the specific 
instruction. 


e Contains coding that describes data to be acted upon. 
@ Operands are separated by a comma. 
e@ No blanks between terms or operands. 


e Blanks are allowed within character constants and 
character self-defining terms only. 


e Ifthe entire operand entry is omitted, but a remark 
entry is desired, absence of the operand must be 
indicated by a comma in the operand entry, preceded 
and followed by one or more blanks. 


@ Must be followed by a blank. 
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Remark Entry 


e Optional entry. 


e Contains a brief verbal description of the statement’s 
function. 


e Cannot extend beyond column 87 or a limit prescribed 
by ICTL assembler instruction. 


e@ Can contain any combination of valid characters or e 
blanks. 
e@ Must be followed by a blank. - 


Identification—Sequence Entry 
e Optional entry. 


e Contains statement identification or sequence 
characters. 


@ See ISEQ — Input Sequence Checking later in this section. 


Comment Statements 


The entire statement field (columns 1-87) can be used 
for comments by placing an asterisk in column 1 (or the 
beginning column, as set by the ICTL assembler 
instruction). Comments can be extended for more than 
one line by the repeated use of the asterisk in the first 
column of additional cards. Comment lines may be used 
anywhere in the source program and are printed on the 
program listing. Sequence checking is also performed 
on cards containing comment statements. 


Operation Entry 


This entry consists of the 
mnemonic code for the 

desired operation. The 
operation can be either 


Machine instruction Assembler instruction 


This entry may contain 
up to 6 characters. 


If not left blank, column 
one must contain an 
alphabetic character. 


(3) Operand Entry 


One or more operands 


that consist of either: 


A single term consisting of: or An arithmetic combination 
of terms. 
A symbol ise A self-defining term a A location counter 
(AT or RT) | (AT) reference (*) (RT) 
EXP = expression 


AT = absolute term 


RT = relocatable term 
Decimal ms Hexadecimal es Binary : Character 
e.g. 156 e.g. X'C4 eg. B'101' 2 e.g. C’ AB’ 
Remark Entry 


This entry contains any 
statement meaningful 
to the programmer. 


© 


Sequence Entry 


This field may contain 
any valid characters. 


This entry is optional 


This entry is optional. 
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Figure 3. Assembler Statement Entries 


ADDRESSING 


The programmer must be able to access any part of storage. 
IBM System/3 provides two methods of addressing: direct 
and base-register displacement. The relative addressing 
technique can be used with both methods. For addressing, 
see the JBM System/3 Models 8, 10, 12, and 15 Components 
Reference Manual, GA21-9236. 


Direct Addressing 


The direct addressing method allows the programmer to 
represent a 16-bit instruction address by using an 
expression as an operand entry. The assembler places 
the value of the expression in the machine instruction 
which it generates. 


Two bytes are always used in the machine instruction for 
a direct address. A direct address is indicated by the 
absence of a register in the operand. 

Example: MVI A,C‘D’ 
This indicates to the assembler that a direct address is to 


be generated for location A (see Machine Instruction 
Operands }. 


Base-Register Displacement Addressing 


Base-register displacement addressing involves setting up 
a base address from which other addresses can be 
calculated. This base address must be placed in the base 
register before the base register is used for addressing. 


One byte is always used in the machine instruction for a 
base-register displacement address and is indicated by the 
presence of a register in the operand. : 


Examples: MVI 
MVI 


A(,2),C‘D’ 
5(,1),C'D’ 


This indicates to the assembler that a base-register displace- 
ment address is to be generated for location A using base 
register 2 and for displacement 5 from base register 1. 


IBM 
Cnn a a MG ETE TTP EEE LT 
BRRRERACCOCCRACKECCANSTARGRRERREREA 
NO TRREARANERAGGRRUMGNGHOGMUGRERRGR 
GGQESRReRREREREEE PLT ERAGE RERRRR BRA 


Figure 4. Base-Register Displacement Addressing 
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The base register plus a displacement can reference any 


higher address within 255 bytes of the specified base 


address. The displacement portion of the address can be 
either absolute or relocatable; however, in either case the 
programmer indicates that a base-displacement address is 

to be generated by the presence of the register in the 
operand (see Machine Instruction Operands). If relocatable 
displacements are used, the USING statement (see Assembler 
Instruction Statements) must be used to indicate to the 


assembler which register contains the base address and 


what address will be loaded into that register. The USING 
instruction does not load the register with the specified 
address; the programmer must use a load instruction to 
place the indicated address into the register. Figure 4 is 
an example of base-register displacement addressing. 


In Figure 4 two bytes of data will be moved from the 


location of B to the location of A. The assembler 


calculates the displacement to the addresses for A and 
B, if A and B are relocatable and are within a positive 
255 bytes of the address in base register XR1. If either 
A or B is over 255 bytes from the base address, an 
addressing error occurs and an assembler error statement 
is generated. If the terms A and B are not relocatable 
symbols, the assembler uses the absolute values (up to 
255) of the terms for the displacement. If absolute 
displacements are used, the USING assembler statement 
is not required. 


Note: The programmer must explicitly specify the base 


register whenever base-register displacement addressing is 
used. 


The programmer terminates the use of a previously 
defined base register through the use of the DROP 
instruction (see Assembler Instruction Statements). The 
value of the register is not affected. This register 
cannot, however, enter into base-register displacement 
addressing using relocatable displacements until specified 
again by a USING instruction. 


Relative Addressing 


Relative addressing is an addressing technique 
accomplished by adding bytes to or subtracting bytes 
from a symbol or location counter reference. The 
expression *+5, for example, specifies the location 5 
bytes beyond the current value of the location counter. 
Figure 5 is an example of relative addressing. 


In Figure 5, the instruction with the operation code 
ZAZ has a length of 6 bytes, the instruction AZ has a 
length of 5 bytes and the instruction with MVI has a 
length of 4 bytes in storage. Using relative addressing, 
the location of the AZ instruction can be expressed in 
two ways, AAA+6 or BBB—S. 


IBM | 
PROGRAM 
PROGRAMMER . 
Name E Operation a Operand 
12 3 4 5 G6E718 9 10 11 12113114 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 3 31 32 33 34 BD: 
AAA | | izaz lt iid iT Titty 
wo 
A 4 
PTT TT Al TL leldiid, Di iel EET 
Bea || i imvel | th ixiteel TT TT 
PLT BET TTT fall | TE EE 
Abs -TLitttirlttEtrtrtrirtiii bie 4 


Figure 5. Relative Addressing 


Figure 6 shows how the AZ instruction can be addressed 
relative to the nearby symbolic addresses, AAA and BBB. 


Relative addressing may also be used with base-register 
displacement addressing if the displacement is a 
relocatable term. 


Example: MVC A+5(,RX1),B(2,RX1) 


In the example, At5 is an example of relative addressing 
used with base-register displacement addressing. 


Instruction Addressing 


A symbol used as a name entry in a machine-instruction 
statement addresses the leftmost byte of storage occupied 
by that instruction. 


Data Addressing 


A symbol used as a name entry in a data definition 
instruction (see DC’ — Define Constant and DS — Define 
Storage) address the rightmost byte of storage occupied 
by or reserved for that data. 


Control of Location Counter 


Addressing in any computer language depends upon the 
location counter. IBM System/3 allows the programmer 
to control the location counter by using two assembler 
instructions: START and ORG. The START assembler 
instruction can be used to initialize the location counter 
to a desired value at the beginning of a program. The 
ORG assembler instruction can be used to change the 
value of the location counter anywhere in a program. 


| __6-bytes —|-5-bytes —t 4 bytes -| 


; os 


ZAZ (AAA+6) 


symbolic address = (AAA) (BBB-5) 


Figure 6. Schematic of Relative Addressing 


These two instructions are described in detail under 
Assembler Instruction Statements. 


MACHINE INSTRUCTION STATEMENTS 


Machine instruction statements are symbols that 
represent machine language instructions on a one-for-one 
basis. The assembler translates these symbolic repre- 
sentations into machine language usable by the 
computer. Machine instruction statements differ from 
assembler instruction statements in that the machine 
instruction statements are executable parts of the 
program’s logic (such as MVI, ST, LA, etc), while 
assembler instruction statements are simply orders to 
the assembler, each statement directing a specific operation 
(such as DC, START, SPACE, etc). See JBM System/3 
Models 8, 10, 12, and 15 Components Reference Manual, 
GA21-9236 for a description of the execution of machine 
instructions. 


The format for a machine instruction statement is closely 
related to, but not the same as, the machine language 
instruction format which results from the assembly 
process (see Appendix A. Machine Instructions for 
machine language instruction formats). 


A mnemonic operation code is used in place of the 
actual machine language operation code and one or 
more operands provide the information required by 
the machine instruction. A remark and a sequence 
entry may be included in the machine-instruction 
statements, but they will not affect the machine 
language instruction. 
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Name Entry Attributes See Appendix A. Machine Instructions for a list of 
extended mnemonic codes. eS 


Any machine-instruction statement can contain a 
symbol as a name entry. Other machine-instruction 
statements can use that symbol as an operand. The 
assembler assigns value and length attributes (charac- 
teristics) to every sumbol used in a program. The value 
attribute of a symbol which is used as a name entry 

in a machine-instruction statement is the address of 
the leftmost byte of storage occupied by the assembled 
instruction. The length attribute of the symbol is 

the number of bytes of storage occupied by the 
assembled instruction. Refer to Lengths—Explicit and 
Implied in this section for a discussion of the length 
attributes of other types of symbols, terms, and 


Machine Instruction Operands 


This section describes (1) operand fields and subfields, 

(2) explicit and implied lengths, and (3) operand groups 

and formats. The operands of machine instruction . 
statements provide the information about addresses, | 

lengths, and immediate data that is required by the 

assembler to generate executable machine instructions. . 
General rules for coding of operands are covered in 

Assembler Coding Conventions. 


expressions. : 
Machine Instruction Mnemonic Codes Operand Fields and Subfields 

The mnemonic operation codes are designed to be The left operand of a pair is called operand 1, or 
easily-remembered codes that remind the programmer operand field 1; the right operand is called operand 2, 

of the functions performed by the instructions. The or operand field 2. An operand field may include one 
mnemonic codes are translated into machine-language or two subfields (length subfield, register subfield) 
operation codes by the assembler. IBM System/3 Basic as in the following example of base-register displacement 
Assembler provides mnemonic and extended mnemonic addressing. 

operation codes. The complete set of mnemonic codes 

is listed in Appendix A. Machine Instructions. Example: 40(,2) 

Extended Mnemonic Codes The above operand field contains a displacement entry, 


40, and a register subfield entry, 2, representing index 
register 2. The following rules apply to the coding of 


Extended mnemonic codes are provided for the 
subfields: 


convenience of the programmer. They are unlike other 
mnemonic codes in that part of the information 

usually provided in the operand is in the extended 
mnemonic code itself. Extended mnemonic codes allow 
the following: 


1. Parentheses must enclose a subfield or subfields. 


Blanks cannot be used within subfield parentheses. 


1. Conditional branches (BC) and jumps (JC) can 3. A ne a separate two subfields within 
be specified mnemonically, requiring only a parentheses (L,R). 


h addr d. 
branch address as an operan 4. If the first subfield of a pair is omitted, the 


2 Half-byte moves (MVX) can be specified comma that separates it from the second subfield 


mnemonically, requiring only the use of addresses must be retained (,R). 


ds. ° 
as Operanl 5. If the second subfield of a pair is omitted, the 


comma separating the pair must also be omitted 


3. The supervisor call form of the command CPU (L). 
(CCP) machine operation can be specified 
mnemonically (Model 15 only). 6. If both subfields are omitted, the separating 


comma and the parentheses must also be omitted. 
Extended mnemonic codes are not part of the set of 


machine instructions, but are translated by the assembler Operand subfields can contain immediate data, length, 
into the corresponding operation code and condition or register information. Only absolute expressions 
combinations. and self-defining terms may be used as subfield entries. 


14 


Lengths — Explicit and Implied 


A length subfield in an operand may be either explicit 
or implied. To imply a length, the programmer omits 
the length subfield from an operand. When a length 
specification is not included in an operand requiring 

a length, the assembler includes the implied length of 
the first operand, such as the length attribute of a name 
entry (see Name Entry Attributes in this section). 

The length attributes of various terms and expressions 
are shown in Figure 7. 


An explicit length is written by the programmer in the 
operand as an absolute expression. The explicit length 
overrides any implied length. 


Term or Expression 


Length Attribute 


Length, in bytes, of the 
instruction. 


1. Name entry symbol 
of a machine-instruction 


. Location-counter 
reference (*) 


Length, in bytes, of the 
instruction in which it 

appears (except in the EQU 
assembler statement, where the 


length attribute assigned is one). 


Length attribute of the 
leftmost term in the 
expression. 


. Expression 


. Self-Defining Term Length attribute is one. 


» START name entry Length attribute is one. 


| NOTE: See also Subfield 3 -- Length under Data Defining 


Instructions. 


Figure 7. Length Attributes of Terms and Expressions 


Operand Groups 


Machine-instruction statement operands are divided 
into six groups. The characteristics of each group are 
as follows: 


Group 1: Two-operand format in which a length is 
explicit or implied in both operands. 


Group 2: Two-operand format in which a length can 
be explicit in either operand, but not in both. If 
length is not explicit in either operand, the assembler 
uses the implied length of operand 1. 


Group 3: Two-operand format in which a length 
cannot be specified. 


Group 4: One-operand format in which only immediate 


data may be used. 


Group 5: Two-operand format in which both operands 
are immediate data: 


Group 6: Two-operand format in which operand 1 is 


used by the assembler to calculate a positive displacement 


and operand 2 is immediate data. 
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Figure 8 shows the allowable operand formats for each operand (I-field) is not used since the information is 


operand group. The instructions using each operand inherent in the mnemonic (see Extended Mnemonic 
group are also listed. Refer to Appendix A. Machine Codes in this section). 

Instructions for the related machine-instruction formats. 

For the extended mnemonics of the MVX instruction, Data movement is from operand 2 to operand 1 ina 
the I-field information is inherent in the mnemonic and two-address format instruction (group 1 and group 2). 
the I-field is omitted from the operand. For the extended This operand order is equivalent to that of machine 
mnemonics of the BC and JC instructions, the second instructions. 


GROUP INSTRUCTIONS ALLOWABLE OPERAND FORMAT 


ZAZ,AZ,SZ 


A(L),A D(,R),A D(L,R),A 
A,A(L) A(L),A(L) D(,R),A(L) D(L,R),A(L) 
A,D(,R) A(L),D(,R) D(,R),D(,R) D(L,R),D(,R) 
A(L),D(L,R) D(,R),D(L,R) D(L,R),D(L,R) 


MVC,CLC,ALC A,A A(L),A D(,R),A D(L,R),A 
SLC,ITC,ED A,A(L) A(L),D(,R) D(,R),A(L) D(L,R),D(R) 
A,D(,R) D(,R),D(,R) 


A,D(L,R) D(,R),D(L,R) 


A,A(I) 
A,D(I,R) 


A(l),A 
A(1),D(,R) 


D(,R),A(I) 
D(,R),D(I,R) 


D(I,R),A 
D(I,R),D(R) 


MVI,CLI,SBN 
SBF,TBN,TBF 
TIO,SNS,LIO 


L,ST,A,LA 
SCP* LCP* 


*Model 15 only. 


The following codes are used to describe the possible operand formats: 


CODE MEANING ACCEPTABLE FORM 
A Address Relocatable expression, absolute expression, or self-defining value. 
D Displacement Relocatable expression, absolute expression, or self-defining value. 
L Length Absolute expression or self-defining value. 
R Register Absolute expression or self-defining value. 
1 immediate Data (bit masks, Absolute expression or self-defining value. 


condition bit masks, or 
control bits to be used in 
the instruction) 


Figure 8. Operand Format by Group 


— 
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In groups 3, 5, and 6, the Q-code operand is always 
on the right. See Appendix A. Machine Instructions 
for an explanation of Q codes. 


ASSEMBLER INSTRUCTION STATEMENTS 


When writing a program the programmer uses two types 
of statements: executable instructions and instruction 
statements to the assembler. The executable instructions 
are the machine instruction statements. These are 
symbolic representations of the programmer’s logic, 

such as branch, move, or compare, which are translated 
into machine language by the assembler. 


Assembler instruction statements, on the other hand, do 
not generate executable machine codes. They are 
instructions that control specific assembler functions. 
These instructions are used to set up areas in storage, to 
define data, to equate symbols, and to control program 
listings, location counter, statement formats, and types 
of addressing. In the remainder of this section, the 
individual assembler instruction statements are 
discussed. 


Symbol Definition Instruction 


EQU—Equate Symbol 


The EQU instruction is used to equate symbols with 
register numbers, immediate data, or other arbitrary 
values. The EQU instruction defines a symbol by 
assigning to it the length and value of the expression 
in the operand field of the EQU instruction. The EQU 
instruction has the following format: 


OPERATION } OPERAND 


EQU | an expression 
| 


The expression in the operand field can be either 
absolute or relocatable. Any symbol appearing in 
the operand field must have been previously defined. 
Figure 9 illustrates how this instruction can be used 
to equate a symbol with the contents of the operand. 


In Figure 9, MAX has the value of TEST + X°3FC’ 
(X‘102+X‘°3FC’ or X‘4FE’) any time it is used in the 
program. The symbol STEST has the value of the first 
(left most) byte of the data area reserved by the DC 
instruction. Since the symbol on the DC (TEST) has 
the value of the rightmost byte, this type of EQU is 
useful for addressing the leftmost byte. The symbol 
REG2 in any statement is the same as using the number 
2. 


PROGRAM 
PROGRAMMER 


Tre jeter dg ian 
1-2 3 4 5 6} 718 9 10 11 12 14 15 16 17 18 19 2 21 22 23 24 25 26 27 28 29 DW 31 32 334 BH 
SS KG HK KKK OK KKM Wield Pegs 8 oboe one pyMaae garg 2 REO 22000 OR OCD 2 2 On C0 
Bah 8 : : 
FON) Ribs 


; 8 


i 
au 


Figure 9. EQU Assembler Instruction 
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Data Defining Instructions 


Two data defining instruction statements are available: 
Define Constant (DC), and Define Storage (DS). These 
instructions are used to enter data constants and to 
reserve areas in storage. Each instruction can have a 
name field entry (symbol) to which other instructions 
can refer. 


DC—Define Constant 


The DC instruction is used to initialize a storage 
location with a desired value. The IBM System/3 

Basic Assembler Language allows six types of constants: 
storage address, binary, character, decimal, hexadecimal, 
and integer. The format of the DC instruction is as 
follows: 


NAME , OPERATION | OPERAND 


DC | Duplication I Type ! Length , Constant 
Factor 


(2) 7 (3) 4) 
(= (1) | | 


Notice that the operand of the DC statement consists 
of four subfields. The first three describe the constant 
and the fourth provides the constant. The only blanks 
permitted within an operand field are blanks embedded 
in a character constant. The symbol that identifies the 
DC statement receives the value of the address of the 
rightmost byte of the area defined by the statement. 


Subfield 1—Duplication Factor: This subfield enables the 
programmer to repeat the constant in storage. The constant 
will be generated the number of times indicated by the 
entry in the first subfield. This entry can be any unsigned, 
nonzero, decimal value, 1 through 65535. If this subfield 

is omitted, a duplication factor of 1 is assumed. This 
duplication factor is applied after the constant is fully 
assembled. If duplication is specified for an address cons- 
tant containing a positive location counter reference, the 


value of the location counter used in each duplication is 
increased by the length of the constant. 
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Subfield 2—Type: This subfield defines the form of the 
constant being entered. From the type specification, the 
assembler determines how it is to interpret the constant 
and translate it into the appropriate machine format. The 
type entry is specified by one of the letter codes A, B, C, 
D, X, or I (see Subfield 4 — Constant for related meanings). 
The type entry is required. 


Subfield 3—Length: The third subfield describes the 
number of bytes required by the constant. The entry for 
this subfield may be written two ways: 


1. Ln, where n is an unsigned, nonzero, decimal value. 
The value of n is as follows: 


n = 1-256 for I, B, C, X constants 
n = 1-31 for the D constant 
n= 1-3 for an A constant 


2. L (absolute expression), where an absolute 
expression is enclosed in parentheses. The value 
limits for the absolute expression are the same as 
those for nin the previous paragraph. A location 
counter reference is not allowed in this expression. 


The total area allocated for this constant is the result of: 
Duplication Factor * Length=Total Area. The length 
entry is required. 


Subfield 4—Constant: This subfield supplies the constant 
that was described in subfields 1 through 3. In general, the 
address constant (type A) is enclosed in parentheses, while 
the data constants (types B, C, D, I, and X) are enclosed in 
apostrophes. An entry in the constant subfield of a DC 
statement is always required. 


Address Constant (A): This constant is used to load an 
address into a storage area. 


Example: SYMBOL DC AL2(BETA) 

In this example, the address represented by the symbol 
BETA will be stored in the 2-byte field addressed by 
SYMBOL. The full 24-bit final expression result is trun- 
cated on the left to fit the length of the constant. The 
maximum length of an address constant is 3. 


Binary Constant (B): This constant is used to create bit 
patterns and masks. 

Example: SYMBOL DC 1BL1‘10011’ 
The byte of storage addressed by SYMBOL will contain 
00010011. Truncation or padding with binary zeros 
occurs on the left if the constant is not the length speci- 
fied. This constant is enclosed in apostrophes. Each digit 
within the apostrophes represents a single bit in storage, 
and each eight bits specified will occupy one byte of 
storage. 


Character Constant (C): This constant can be used to 
place a string of characters in storage. 

Example: SYMBOL DC 
The byte of storage addressed by SYMBOL will contain a 


blank, and the byte of storage addressed by SYMBOL-16 
will contain the character P. 


Note: Two blanks have been padded on the right of the 
character string. 


If the constant is not the specified length, truncation or 
padding with blanks will occur on the right. Each 
character (including blanks) within the apostrophes will 
occupy a byte of storage. If an apostrophe occurs within 
the string of characters, it must be represented by a 

- double apostrophe. 


Decimal Constant (D): This constant can be used for 
arithmetic purposes. 

Example: SYMBOL DC_ DLS‘125.66’ 
This constant will appear in zoned-decimal form in a 5-byte 
storage field, addressed by SYMBOL. The decimal point 
is used only as a convenience for the programmer, and 
is not assembled into the constant. The value of the 
constant is calculated without the decimal point. Trunca- 
tion or padding with decimal zeros occurs at the left of the 
field, if necessary. Signed decimal constants are permitted, 
making it possible to have a decimal constant with a nega- 
tive value. Each decimal digit will occupy one byte of 
storage. 


Hexadecimal Constant {X): This constant is used to 
associate a hexadecimal value with a symbol in a defined 
area in storage. 

1XL6°8AC14’ 


Example: SYMBOL DC 


1CL17°PLANT 5 PAYROLL’ 


The 6-byte field addressed by SYMBOL will contain the 
following 12 hexadecimal digits: OOO00008AC14. 


Truncation or padding with hexadecimal zeros occurs at 
the left. Each two digits between apostrophes will occupy 
one byte of storage. 


Integer Constant (I): This constant is used for fixed-point 
binary arithmetic. 

Example: SYMBOL DC_ 1IL2°‘-7’ 
A negative number may be used for an I constant. The 
negative constant is placed in storage in its two’s-comple- 
ment form. This example would appear in storage in bit 
form as 1111111111111001. There is always a positive 
equivalent to a negative constant; in the above example, it 
is hexadecimal FFF9 or decimal 65,529. The range of I 
constants must be within —2°2+1 to 232-1. If the number 
is positive, it is padded on the left with O-bits. If the 
number is negative, it is padded on the left with 1-bits. 


DS—Defines Storage 


The DS instruction is much like the DC instruction. It 
assigns a symbol to an area of storage. Unlike the DC 
instruction, the DS instruction only reserves the area of 
storage, it does not insert data. A constant subfield cannot 
be used with a DS statement. The following illustration 
shows the DS format. 


NAME , OPERATION , OPERAND 


l duplication type | length 


| factor l | 


A duplication factor of zero can be used in a DS statement 
if the programmer wishes only to assign a length to its 
corresponding symbol. The symbol] will be given the value 
of the current location counter minus one. The type and 
length subfields must follow the same rules as for the DC 
statement. 


The duplication factor can be used by the programmer to 
specify a reserved area larger than 256 bytes. 


Example: SYMBOL DS —= 3CL100 


This instruction would reserve a 300-byte area, which would 
be referenced on the right by the name entry SYMBOL. 
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Listing Control Instructions 
The listing control instructions aid the programmer in 


documenting his assembler listing. These instructions are 
TITLE, EJECT, SPACE, and PRINT. 


T/ TLE — Identify Assembly Output 


The TITLE instruction enables the programmer to identify 
assembled object cards and assembler listings. 


OPE RAND 


| 
NAME ; OPERATION 


- a sequence of characters 
enclosed in apostrophes 


label or blank | TITLE 


The name field entry can consist of a maximum of six 
characters. The first character may be numeric. The 
contents of the name field in the first TITLE card is punch- 
ed into the sequence field of all object cards produced by 
the assembler. This name field entry also appears in all 
listing header fields. 


The name on the TITLE statement is not the object pro- 
gram name, but may be the same as the object program 
name. See START — Start Assembly. The name field _ 
entry is used only for identification and may not be 
referenced by the program. 


The operand field contains a sequence of characters 
enclosed in apostrophes. Any embedded apostrophes must 
be represented by a double apostrophe. The contents of 
the name and operand fields are printed at the top of each 
page of the assembler listing. 


A program can contain more than one TITLE statement. 
When a new TITLE statement is read, the listing is advanced 
to a new page before the new heading is printed. The name 
fields of all subsequent TITLE statements are ignored by 
the assembler. The TITLE instruction is not listed on the 
assembler listing, but it does increase the statement counter 
by one. Figure 10 shows an example of the TITLE 
statement. 
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Figure 10. Use of the TITLE Statement 


EJECT — Start New Page 


The EJECT instruction causes printing to begin at the top 
of a new page, under the page heading. Through the use 


of the EJECT statement, the programmer can separate 


routines in the assembler listing. The format of the EJECT 
assembler instructions is as follows: 


OPERATION l OPERAND 


EJECT | Not Used 


In Figure 11, the EJECT instruction is used to separate 
executable instructions from the data-defining assembler 
statements. The EJECT instruction is not listed on the 
assembler listing, but it does increase the statement counter 
by one. The coding example in Figure 11 shows the position 
of EJECT. Note that the corresponding statement number 
(4) has been omitted in the listing. Statement number 5 
appears at the top of the next page, under the heading. 


SPACE — Space Listing An unsigned decimal value is used to specify the number 
of blank lines that are to be inserted. If the operand con- 
tains a blank, a zero, or a 1, one blank line will be inserted. 
If the value of the operand exceeds the number of lines 
remaining on the current page, the instruction has the 
same effect on the listing as an EJECT statement. The 
SPACE instruction, like the EJECT instruction, is not 
listed on the assembler listing, but does increase the state- 
ment counter by one. 


This instruction is used to insert one or more blank lines 
between statements in the assembler listing: 


NAME |! OPERATION ! OPERAND 


blank 1 SPACE decimal value or a blank 
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Figure 11. EJECT Instruction 
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PRINT—Print Optional Data 


The programmer can control the printing of an assembly 
listing by using the PRINT instruction. A program can have 
any number of PRINT instructions. Each PRINT 
instruction controls the listing until the next PRINT 
instruction is encountered. 


OPERATION OPE RAND 


PRINT 


operand 


The operand field can include entries from the following 
groups (one or two operands for the Model 10, one, two, 
or three operands for the Model 12 and the Model 15): 


1. ON-—A listing is printed. 
OFF —No listing is printed. 


2. | DATA-—Constants are printed out in full on the 
assembler listing. 
NODATA-—Only the leftmost 8 bytes of the con- 
stants are printed on the assembler listing. 


3. (Model 12 and Model 15 only) 
GEN—Print statements generated by the macro 
processor if not overridden by other listing 
control statements. 
NOGEN-—Suppress printing of statements gen- 


erated by the macro processor. 
Operand entries must be separated by a comma. 


The ON, GEN and DATA conditions are assumed by the 
assembler unless otherwise specified by a PRINT instruc- 
tion. If an operand is omitted, it is assumed to be un- 
changed and continues according to its last specification. 
Both of the examples in Figure 12 would cause a listing 
to be printed with only the leftmost 8 bytes of the con- 
stants appearing in the listing. 

IBM 
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Figure 12. The PRINT Statement 
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Program Control Instructions 


IC TL—Input Format Control 


The ICTL statement permits the programmer to change 
the normal bounds of the source program statements. 


When included, the ICTL instruction must precede all 


other source statements. This instruction can be used 
only once during a program. An invalid or mispositioned 
ICTL statement causes termination of the assembly. 


| 
NAME {| OPERATION 1 OPERAND : 


blank ICTL 


| two decimals in the form of B,E 


The term B specifies the beginning column and the term 
E specifies the ending column of the source statement. 
The beginning column must be within columns 1-48. The 
ending column must be within columns 49-95. The 
column after the ending column must be blank. 


When an ICTL statement is not included in a source 


program, the beginning column is assumed to be column 


1, and column 87 is assumed to be the ending column. 
Figure 13 is an example of the ICTL instruction. In 
Figure 13, the name field would start in column 14 
and the remark field would end in column 80. 
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Figure 13. The ICTL Statement 
ISEQ—Input Sequence Checking 


The ISEQ instruction is used to check the sequence of 
source cards. Sequence checking begins with the first 
card after the ISEQ instruction. The first sequence entry 
is taken from the sequence identification field of the 
ISEQ statement. The sequence entry on the next card is 
then compared to the previous sequence value. The ISEQ 
assembler statement has the following effect: 


1. | The.sequence entries on source-statement cards are 
checked for ascending order. 


2. Statements that are out of order and statements 
without sequence entries are flagged in the assembler 
listing. 


3. The total number of flagged statements is noted at 
the end of the assembler listing. 


For example, with the sequence values 13, 27, 31, 6, 8, 
45, 47, 6 and 48, the card numbered 6 and the card with- 
out a sequence value would be out of sequence. The 
assembly does not stop due to a card being out of 
sequence order. In this example, the card numbered 6 
and the card without a sequence entry would be flagged 
in the error field. of the listing. If sequence checking is 
requested, there is a statement at the end of the listing 
showing that two cards were out of sequence. 


The assembler will not check the sequence unless requested 
to do so by use of the ISEQ statement. 
The following is the ISEQ instruction format: 


NAME OPERATION OPERAND 


blank ISEQ 


two decimal values in the 
form L, R; or blank 


The operand entries, L or R, specify the leftmost (L) and 
rightmost (R) columns of the field to be sequence checked. 
The value of L must be within the range of 73 through 96 
(inclusive). The length of the sequence field may be from 
1 to 8. If the programmer wants to discontinue sequencing, 
an ISEQ instruction card with a blank operand is inserted. 


The sequence field must be separated from the last column 
of the source statement by at least one blank position. 
The last column of the source statement is column 87 
unless otherwise specified by the ICTL assembler state- 
ment. The sequence field must not appear before the last 
column +1 of the source statement. If the sequence field 
is to start before column 89, the ICTL statement must be 
used to redefine the beginning and end of the source state- 
ment. For example: 
ICTL 1,71 Source statement is defined within 
columns 1-71 


ISEQ 73,80 Sequence field is in columns 73-80 


START—Start Assembly. 


The START instruction may be used to initialize the 
location counter to a desired value at the beginning of a 
program. The format of the START instruction is: 
OPERAND 


NAME OPERATION 


START 


a self-defining value or blank 


symbol! 


The assembler uses the single self-defining term in the 
operand as the initial location-counter value. For example, 
either of the START instructions in Figure 14 could be 
used to indicate an initial assembly location of 2040. 


If the operand of a START instruction is blank, the 
location counter is initialized with a value of zero. If 
neither an ORG nor a START instruction is used to initial- 
ize the location counter, the initial value is also zero. 


A START instruction must not be preceded by any state- 
ment that affects or is dependent upon the setting of the 
location counter. 


The name entry in the name field of a START instruction 
provides the program with an identifier name called the 
module name. The module name may be the same as the 
first TITLE statement. 


Note: Certain naming restrictions apply when assigning 
names for your program. For more information on naming 
restrictions, see JBM System/3 Model 10 Disk System 
Control Programming Reference Manual, GC21-7512, 
IBM System/3 Model 12 System Control Programming 
Reference Manual, GC21-5130, IBM System/3 Model 15 
System Control Programming Reference Manual, 
GC21-5077 (Program Number 5704-AS1), or JBM 
System/3 Model 15 System Control Programming 
Concepts and Reference Manual, GC21-5162 (Program 
Number 5704-AS2). 


This program name may be used for program linkage. If 
the START card is not included in the program, or if the 
name field is blank, a default program name is assigned. 
See the MODULE NAME MISSING diagnostic in 
Appendix C. System/3 Assembler — Source Language 
Error Codes and Diagnostics. 
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Figure 14. Using START to Initialize the Location Counter 
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ORG—Set Location Counter 


The ORG statement sets the location-counter value. 


OPERAND 


| blank operand or an expression A 
| optionally followed by two absolute 
expressions in the form A, B, C 


The location counter is set to the smallest value greater 
than or equal to A which is C more than a multiple of B. 
In the following example, A can be either a relocatable or 
absolute expression; B and C must be absolute expressions. 
The default values for B and C are 1 and 0, respectively. If 
the second operand (B) is omitted, the third operand (C) 
must also be omitted. 


Current New 

Location Location 

Counter A B Cc Counter 
275 _ 100 50 350 
340 * 100 50 350 
350 = 100 50 350 
504 5 256 0 512 
750 1000 —— —— 1000 


All symbols used in the expression A must have been 
previously defined. The value specified by the ORG state- 
ment must be greater than or equal to the starting location- 
counter value. | 


If previous ORG statements have reduced the location- 
counter value for the purpose of redefining the current 
program, an ORG instruction with a blank operand is used 
to set the location counter to the previous maximum 
assigned address plus one (see Figure 15). 


* Previous 
High Address 


Figure 15. Using ORG to Control the Location Counter 
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USING — Use Register for Base-Displacement Addressing 


The USING statement specifies the register to be used for 
base-displacement addressing and also specifies the base 
address that the assembler will assume to be in that register 
at object time. The USING statement does not load the 
base address into the register specified. This must be done 
by the programmer before the register can be used for 
base-register displacement addressing. See Addressing in 
this section. 


NAME |! OPERATION |! OPERAND 


blank |! USING | oVR 


In the preceding format, term V represents an expression. 
Term R represents an absolute expression with a value of 
1 or 2. Term R specifies the index register assumed to 
contain the base address represented by the term V. The 
programmer has the option of changing the base register 
or base address at any time by the insertion of another 
USING statement. Two USING statements enable the 
programmer to use the two index registers as base registers 
to two different portions of main storage. 


In Figure 16, register 2 is loaded with the address of 
ADRES1, which will be used as the base address in instruc- 
tions following the USING statement. 
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Figure 16. Specifying a Base Register With the USING Statements 


DROP — Drop Base Register 


The DROP instruction specifies a base register that is no 
longer to be used as a base register. The programmer can 
reinitiate the base register with another USING 


instruction. 


NAME |! OPERATION OPERAND 


blank | DROP 


specified register 


The operand must contain an absolute expression of 
either 1 or 2. This absolute expression represents the 
register that is no longer to be used as a base register. 
The contents of the register are unaffected by the DROP 
instruction. Figure 17 shows an example of the DROP 
instruction. Another USING statement is used to 
specify register 1 as the new base register. 
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ENTRY — Identify Entry Point to Program 

This instruction identifies symbols, defined in the current 
program, which can be used as entry points from other 
programs. 


OPERAND 


OPERATION | 


any relocatable 
symbol found in the 
name field of the 
current program 


The symbol used in the ENTRY operand can also be refer- 
enced by any other program provided that program uses 


the same symbol in the operand of an EXTRN statement. 


See the example given in the discussion of EXTRN for 
additional information on the use of ENTRY. 


EXTRN — Identify External Symbols 


This instruction identifies symbols, used in the current 
program, which are defined in another program. Each 
symbol in the operand of an EXTRN statement must be 


identified by an ENTRY statement or be the module name 
in some other program. 


NAME | OPERATION | OPERAND 


one relocatable symbol 


EXTRN | not found in the name 


blank 


gram, optionally followed | 
| by an absolute expression 
in parentheses 


| 
| | field of the current pro- 
| 
| 


The external symbol cannot be used in a Name field in the 
same program that describes that symbol as an EXTRN. 


An EXTRN subtype can be specified for the EXTRN 
symbol by following the symbol with an absolute 
expression enclosed in parentheses. The value of the 
absolute expression cannot be less than zero nor more 
than 255. Any symbol in the expression must have been 
previously defined. For an explanation of the subtype 
values and their meanings, see [BM System/3 Overlay 
Linkage Editor Reference Manual, GC21-7561. 
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Figure 18 shows how ENTRY and EXTRN can be used to 


make two or more programs act as one main program through 


sharing data and control. The main program defines sym- 


bols A, B, and C and identifies them as entry points. These 
same symbols are identified as EXTRNs (external symbols) 


in the subroutine. This allows the subroutine to use these 
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Figure 18. Example of ENTRY and EXTRN Statements 
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symbols just as it would if the symbols had been defined 

in the subroutine. SUBRO1, on the other hand, is defined 
and identified as an entry point by the subroutine and as an 
EXTRN, external symbol, by the main routine. These four 
symbols — A, B, C, and SUBRO1 — can now be used inter- 
changeably by both the main routine and the subroutine. 


The main routine has control first. It executes instructions 
and then branches to SUBRO1 which is defined as an entry 
point in the subroutine. Instructions in the subroutine are 
executed. Notice that the subroutine uses symbols A, B, and 
C which were defined in the main routine. Control is then 
passed back to the main routine. 


Note: The actual resolution of symbols between programs 
is not performed by the assembler. 


END—End Assembly \ 


The END instruction terminates assembly of the program. 
The operand of this instruction can contain an expression 
(usually a name field entry) which specifies the address 

to which control is to be transferred after the program is 
loaded. The END instruction must be the last statement 
in the program. The relocatable expression in the operand 
must not contain external symbols. The start-of-control 
address must be specified for programs loaded with the 
absolute loader. 


l 
NAME ; OPERATION | OPERAND 


blank ! END | a relocatable expression or a blank 


Figure 19, shows an END statement. In this example, the 
program receives control at the address corresponding to 
BEGIN when it is executed. 
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Figure 19. Designating an Entry Point With the END Statement 


ASSEMBLER CONTROL STATEMENTS 


Two control statements are used: The HEADERS state- 
ment and the OPTIONS statement. Up to 45 of these 
control statements may be used, in any order. Each state- 
ment is limited to six operands. All control statements 
must appear before any assembler source statements. 


HEADERS Statement 


The HEADERS control statement specifies control infor- 
mation other than output control information to the 
assembler. The programmer may specify a category level 
for the object module through the CATG operand, or the 
length of the control section for any subtype 4 or 5 
EXTRNs in the assembler through the COML4 and COMLS5 
operands. For an explanation of category levels and 
subtype 4 and 5 EXTRNs, see JBM System/3 Overlay 
Linkage Editor Reference Manual, GC21-7561. 


The format of the HEADERS statement with the CATG 
operand is: 


bH EADERS#CATG-nnnnn 


Column 2 At at Decimal category 


or greater one blank level 


nnnnn 

nnnnn is a one to five character decimal string whose value 
must be less than 00256. If more than one CATG operand 
appears in the assembler control statements, the value of 
the last valid operand is used for the module category level. 
The module category level is placed in the module ESL 
record. 


The format of the HEADERS statement with the COML4 
and COMLS operands is: 


BHEADERSBCOML4-nnnnn, COML5-nnnnn 


Decimal control 
section length 


Column 2 At least 


or greater one blank 
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nnnnn isa one to five character decimal string whose value 
must be less than 65536. If more than one COML4 or 
COMLS operand is present in the assembler control state- 
ments, the length in the last valid operand is used for the 
appropriate subtype control section length. The lengths 
specified are placed in the ESL records for the subtype 4 
or 5 EXTRNs. 


OPTIONS Statement 


An OPTIONS statement is a control statement for 
assembler control options. All OPTIONS statements must 
precede the source deck. The user may specify the follow- 
ing assembler options on OPTIONS statements: DECK, 
NODECK, LIST, NOLIST, XREF, NOXREF, REL, 
NOREL, OBJ, OBJ(T), OBJ(P), NOOBJ. XBUF-nnnnn 
and NOXBUF are also available to users having program 
5704-AS2. They may appear on one statement in any 
order, but must be separated by commas. If the pro- 
grammer prefers, separate statements may be used for 
each option. The OPTIONS keyword must start in 
column 2 or higher (the preceding column must be blank), 
and there must be one or more blanks between the key- 
word and the selected options. Blanks are not allowed 
between the selected options. 


The following example shows options appearing on one 
statement: 


BOPTIONSBDECK, LIST, NOXREF, REL 


IN 


Column 2 At Jeast one blank between 


or greater. keyword and options. 


More than one OPTIONS statement may be used. In the 
following example, three statements are used: 


Programmer’s Guide 27 


The following list provides a brief description of all the 
options available: 


Option 


DECK 


NODECK 


LIST 


NOLIST 


XREF 
NOXREF 
REL 


NOREL 
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Explanation 

The object program is punched. When an 
object program is punched, it is preceded 
by a // COPY OCL card and followed by 

a // CEND OCL card. These cards are 
provided for placing the object program in 
the R library with the library maintenance 
utility program ($MAINT). 

The object program is not punched. 

The following sections of the assembler 
listing are printed (see Assembler Listing 
in this section for a description of the 
listings): 

@ Options information 

@ External symbol list 

@ Source and object program listing 

@ Diagnostic listing 

@ Error summary statements 

Only the following listings are printed: 


@ Options information 


@ Any statements in error and the 
associated diagnostics 


@ Error summary statements 


The NOLIST option overrides all 
assembler PRINT statements. 


A cross-reference listing is generated. 

A cross-reference listing is not generated. 
A relocatable object program is produced. 
An absolute object program is produced. 
Note: Absolute object programs can only 
be used as stand-alone programs; that is, 


programs which are not dependent on any 
other disk management system program. 


OBJ or 
OBIT) 


OBJ(P) 


NOOBJ 


On the Model 10 an absolute loader will pre- 
cede the absolute deck if DECK is specified 
and if MFCU2 is specified on the // PUNCH 
statement. On the Model 12 and Model 15, 
an absolute loader will precede the absolute 
deck if DECK is specified and if the 
SYSPCH device is MFCU, 1442, or MFCM 
(Model 15 only). The loader punched will 
program load only on the device type on 
which it was punched. A blank card is in- 
serted between the absolute loader and the 
object program. This blank card and the 
OCL cards included with the object program 
do not affect the operation of the absolute 
loader and may be discarded. 


To prevent cataloging of the absolute object 
program when NOREL is specified, you 
should specify NOOBJ. 


The object program is placed in the R 
library with a retain entry of temporary. 


The object program is placed in the R library 
with a retain entry of permanent. 


The object program is not placed in the R 
library. (See Placing Assembler Subroutines 
in R [Routine] Library in this section.) 


If no OPTIONS statement is used, the assembly is processed 
as though DECK, LIST, REL, XREF, and OBJ had been 
specified. NOXBUF is also assumed with program 


5704-AS2. 


XBUF-nnnnn Specifies the size of the disk external buf- 


NOXBUF 


fers the user has requested. From one to 
five numeric digits may be used to specify 
the size of the disk external buffers (pro- 
gram 5704-AS2 only). External buffers 
should not be specified due to performance 
considerations if the program size including 
physical disk buffers does not exceed 56K. 
However, if external buffers are specified, 
they should equal the size of the physical 
disk buffers that normally would be set 
aside within the program. 


Specifies no external buffers are requested 
for the program (program 5704-AS2 only). 


If DECK or OBJ is entered on the OPTIONS statement and 
there are errors in the assembly, a halt is issued. 


OCL STATEMENTS FOR ASSEMBLER 


The loading and running of a disk-system program, 
including the assembler, is done under control of a group 
of programs called disk system management. The user 
tells disk system management to run a program through 
the use of Operation Control Language (OCL) state- 
ments. It is necessary to have a set of OCL statements 
each time a program is run. This section discusses the 
OCL statements required for use of the assembler. For 

a complete discussion of OCL, see JBM System/3 

Model 10 Disk System Control Programming Reference 
Manual; GC21-7512, IBM System/3 Model 12 System 
Control Programming Reference Manual, GC21-5130, 
IBM System/3 Model 15 System Control Programming 
Reference Manual, GC21-5077 (Program Number 
5704-AS1), or IBM System/3 Model 15 System 

Control Programming Concepts and Reference 

Manual (Program Number 5704-AS2), GC21-5162. 


The assembler language source program can be obtained 


from either a system input device, a source library entry, or 


the macro processor. If the source records are obtained 
from an 80-column device, they are padded with 16 
blanks before being placed in the SSOURCE file. In this 


case, the user should provide an ICTL statement to prevent 
the assembler from processing the sequence field of the 


80-column record. 


OCL For Loading the Assembler 


Source Program on System Input Device (Cards) 


Figure 20 is a sample set of OCL statements to load the 
assembler when the source program is on cards. The unit 
parameter (F1) on the // LOAD statement specifies 
where the assembler resides. The codes for the disk 
drive upon which the assembler resides are: 


@ 
a 
| 


-drive 1 


@ Fl — drive 1 


@e R2 — drive 2 


@ F2 — drive 2 
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or IBM System/3 Model 15 System Control 
Programming Concepts and Reference Manual, GC21-5162, 


(Program Number 5704-AS2) for further information. 
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Requirements section. See IBM System/3 Model 10 Disk 


System Control Programming Reference Manual, 
Figure 21 shows a sample set of OCL statements used when 


number of tracks required in accordance with the space 
requirements charts in the Assembly Time Data File 
Programming Reference Manual, GC21-5130, and JBM 
System/3 Model 15 System Control Programming 

the source program is in the source library. 


Reference Manual (Program Number 5704 


GC21-7512, IBM System/3 Model 12 System Control 
GC21- 


parameters indicate the location of the file named in the 
NAME Parameter. In addition to R1, Fl, R2, and F2, the 
UNIT parameter can specify D1, D2, D3, and D4 for the 
Model 15. The RETAIN parameter should reflect a scratch 
file(s). The TRACKS parameter contains the number of 
tracks required for that file. The user should choose the 


In all three // FILE statements, the PACK and UNIT 


Source Program in a Source Library 
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location of the file used for object output of the assembler. 
The third // FILE statement specifies attributes and 
Model 10 Disk System. If it is not supplied, the assembler 


allocates the work space. However, by specifying the 
Figure 20. Assembler OCL Statements (Source Program on Cards) 


The first // FILE statement specifies the attributes and 
location of the file used for source program residence 

The second // FILE statement specifies attributes and the 
location of the file used for assembler working storage 
proper placement of file locations, as in Figure 20, this 
file statement improves the performance of the assembler. 
It should, 


The $WORK2 // FILE statement is optional on the 
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Figure 21. Assembler OCL Statements (Source Program in Source Library) 


- Source program in Source Library with: OPTIONS DECK, 
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Note that the additional OCL statement // COMPILE is 
required. The following entries in the figure are optional: 


PUNCH _ This statement specifies where an object 


deck is punched. For more information on 


statement, see JBM System/3 Model 10 Disk 


System Control Programming Reference 
Manual, GC21-7512, IBM System/3 
Model 12 System Control Programming 
Reference Manual, GC21-5130, JBM 
System/3 Model 15 System Control 


Programming Reference Manual, GC21-5077 


(Program Number 5704-AS1), or JBM 
System/3 Model 15 System Control Pro- 


gramming Concepts and Reference Manual, 


(Program Number 5704-AS2), GC21-5162. 


OBJECT This operand is used to indicate to the 

operand assembler the library unit used when the 
OBJ option is used on the OPTIONS 
statement. . 


The // LOAD and // FILE statements are as described in 
the first example. The // COMPILE statement specifies 
both the location of the source library and the required 
source program within the library. The // COMPILE 
statement may appear at any position between // LOAD 
_ and // RUN. | 


Macro Processor-Produced Source Program 


The macro processor creates a source program on the 
$SOURCE file. To indicate that the macro processer has 
already loaded the $SOURCE file, external indicator U1 
must be turned on. This is done through a // SWITCH 
statement. If this indicator is on when the assembler is 
loaded, the $SOURCE file will not be loaded. 


In the following OCL stream, the source program has been 
created on the $SOURCE file: 


IBM 
40 11 15 16 17 18 19 2 21 ee 27? 28 28 DW 31 32 33 34 BD 36 37 38 39 40 41 «42 43 44 45 46 
barre ceeeerereer tet ert 
Alsisieiml, inie| {| aig TTT Indicate that the source file 

F ; Hee cer aRe Re TT has been loaded by the macro 
AU elt iu WAM! ISISoWlalClElTT II | processor step. 
Ba EU MAME MOR fe RUCRERRIG 

/|7¥ IF ILILIE| INA Mle] |S wiolRik| (OMansaEn ERESEREREERRTE 
Ciuc HEHEHE 
| ¥ { | | References the source file created KARL SEREE RRR RAE 
Baae by the macro processor step. ROR SSR RED RSR ERE 


(1) Optional on Model 10 Disk Syatain 


Note: For more information on the macro processor, see 
IBM System/3 Models 10 and 12 System Control Program- 
ming Macros Reference Manual, GC21-7562, or JBM 
System/3 Model 15 System Control Programming Macros 
Reference Manual, GC21-7608. 


// SWITCH Considerations 


The external indicator U1 indicates that the macro 
processor has loaded the $SOURCE file and the source 
program is not in the input stream. If this indicator is 
on when the assembler is loaded, the $SOURCE file 

is not loaded. 


When the $SOURCE file is to be loaded, external 
indicator U1 must be off. This can be ensured by 
entering the following statement after the assembler 
// LOAD statement: 


OCL For Calling the Assembler 


It is possible for the user to store a portion of the OCL 
statements required for use by the assembler in 

a procedure library. They may then be called with a 

// CALL statement, thus reducing the number of 
written OCL statements required for each assembly. 
Examples are included for source programs on cards and 
for source programs in a source library on disk. 


Source Program on Cards 


If the source program is a deck of cards, the OCL cards 
necessary to assemble the program, and the order in 
which they must appear, are as follows: 


PROGRAM 
PROGRAMMER . 


rand 
als 16 17 18 19 20 21 22 23 24 2 26 2 29 


meee SAUGARERAEORRUGAEDAI ; 
A CALI ASM ell | TTT TT CHE 


AAT RUIN | TTT PTT TT | 
PEEPLES 


Source Program Deck | 


PEGS REECE 
Tg ge 


In this example, ASM is the procedure name. F1 refers 

to the disk pack upon which the assembler OCL procedure 
is stored. In this case, it would be the fixed disk on 

drive one. 
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Source Program in a Source Library @ HEADER record 


If the source program is stored on disk in a source @ ESL (external symbol list) record 


library, the OCL format must be as follows: 
e TEXT-RLD (text-relocation directory) records 


IBM 
SnCEnniA e END record 
PROGRAMMER 

Record Formats 


The following paragraphs describe the format of each 
record type. 


HEADER Record 


refers to the fixed disk on drive 1. SUBRA is the name A HEADER record with record type H is added by the 
of the source program. The user must substitute his overlay linkage editor when it processes the assembler 
Own source program name. R1 is the disk pack upon object program. The HEADER record format is: 


which the source library resides. 


Sample Assembler Procedure Stored in Procedure | H] Object program information field | 


Library ; 3 | or 
A sample assembler procedure is shown in Figure 22. The @ Byte 1 Record type identifier H. 
format is as it would appear in the procedure library. @ ‘Byies 264: “Object proaram intocmation field, 


The // LOAD statement and // FILE statements are as 
described in preceding examples. | 


ESL Record 
OBJECT PROGRAM DESCRIPTION 

The object program name, that is the module name and all 

EXTRN and ENTRY symbols are placed in the ESL record. 
The assembler converts the source program into The ESL record format is: 
a set of control information, machine language instruc- 
tions, and data, all of which collectively are called an 
object program. There is one object program produced 
per assembly. Each object record is originally produced 2 
as a 64-byte field. If the object program is punchea on 
the MFCU, it is translated into a 96-byte punch record 
(bytes 2 to 64 are translated 4 for 3 for punching; 
for every three 8-bit bytes, four card code characters Byte 2 Length -1 of the ESL entries. 
are created). See Object Program After Punch Conversion Bytes 3-62 ESL entries. Up to five MODU LE, 
in this section. Each object program generated by the ENTRY, and/or EXTRN fields. 
assembler contains four types of records: Bytes 63-64 Filled with hexadecimal zeros. 


Length -1 ESL Entries 


Byte 1 Record type identifier S. 
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Figure 22. Sample Assembler Procedure in Source Library 


32 


TEXT-RLD Records 


Text records and RLD pointers are combined in this type 
of input record. The text portion of each record contains 
the object code for the program, while the RLD pointers 
indicate where the address constants and relocatable 
operands of the text are located. If the NOREL option 
has been selected on the OPTIONS control card, there 
will be no relocation indicators in the record. The format 
for the TEXT-RLD record is: 


Tj} Length-1 | Assembled Address 


| 8 
Text4X‘00'¢RLD 


1 2 3 4 5 64 


Byte 1 Record type identifier T. 
Byte 2 
Bytes 3-4 


Length - 1 (of text only). 


Assembled address of the low order (rightmost) 
text byte in the record. 


Bytes 5-64 Text starts at byte 5 and goes right, RLD 
starts at byte 64 and goes left. The leftmost 
end of the RLD section is marked by 
hexadecimal zeros, which fill the space 
between the Text and RLD sections. The end 
of text is always followed by at least one 
byte of X‘00’. 


END Records 


The last record in each object program is an END record. 
It contains the entry address of the object program. If the 
user did not include an operand in his source program 
END statement, the object program END record generated 
by the assembler will contain the address X‘FFFF’. The 
END record format is: 


Entry END card program 
Address 


Byte 1 Record type identifier E. 


Bytes 2-3 Entry address of the object program. 


Bytes 4-64 Program to transfer control to Entry address. 


Object Program After Punch Conversion 


All four types of records (HEADER, ESL, TEXT-RLD, 
and END) assume the same format when they are punched 
into cards. The punched record format, using 96-column 
cards, is as follows: 


Identification 
Sequence Field 


Record ID |} Data Field | Self Check 
85 86 88 89 96 


Record type identifier (H, S, T, or E). 


Column 1 | 


Columns 2-85 Data field, transformed 4 for 3. (For every 
three 8-bit bytes, four card code characters 


are created for System/3 96-column cards.) 


A 2-byte self check number transformed 
4 for 3, to 3 bytes. 


Columns 86-88 


Columns 89-96 Identification/sequence field. 


The punched record format, using 80-column cards, is as 
follows: 


Record 1D | Data Field | Blank { Self Check | Identification 


Number Sequence Field 


70 72 «73 80 


Column 1 Record type identifier (H, S, T, or E). 


Columns 2-64 


Data field, bytes 2 to 64 of the object record. 


Columns 65-69 Blank. 


Columns 70-72 A 2-byte self check number transformed 4 for 3, 


to 3 bytes. 


Columns 73-80 Identification/sequence field. 


Note: When an object module is punched, it is preceded 
by a // COPY OCL card and followed by a // CEND OCL 
card. These cards are provided for placing the object 
module in the R library with the Library Maintenance 
program ($MAINT). 
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ASSEMBLY TIME DATA FILE REQUIREMENTS 
There are three data files necessary at assembly time: 
1. Source file (NAME-$SOURCE) 

2. Object file (NAME-$WORK) 

3. Work file (NAME-$WORK2) 


Model 10 Disk System: These files must be located on 
5444 disk drives. If a // FILE statement is not provided 
for $WORK2, the assembler allocates its own work space. 


Model 12: These files must be located on the simulation 
area. 


Model 15: These files must be located on either 3340, 
5444, or 5445 disk drives. 


Source File (SSOURCE) 


The source file is used by the assembler for storage of the 
source program. During the job initialization procedure, 
a disk system management program places the source 
program in the source file (if the macro processor has not 
loaded the file). The source records are obtained from 
either the system input device or a source library using 
the // COMPILE statement. (See OCL statements for 
Assembly in this section.) Each source record contains 
96 bytes, so that eight records occupy three disk 

sectors in the source file. (One sector = 256 bytes, and 
is the smallest addressable unit on a disk.) Figure 23 

is a source file space requirements table showing how 
many tracks are required for the size of the source pro- 
gram indicated. 


If the assembler is processing a source file created by 


the macro processor, the // FILE statement for $SOURCE 


must correspond to the SSOURCE file produced in the 
macro processor run. 


Object File (SWORK) 


The object file is used by the assembler for intermediate 
storage of the object program. The object records are 
stored in four 64-byte entries per sector. (See Object 
Program Before Conversion in this section.) Because each 


track in the object file can contain 96 records on the 5444, 


80 records on the 5445, or 192 records on the 3340, two 
tracks usually are sufficient for most assemblies. 
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Work File (SWORK2) 


The work file is a scratch file used by the assembler 
throughout the assembly process for intermediate data 
storage. The file contains four types of data: 


i Intermediate text 
2. Symbol table entries 
3. Cross-reference data 


4, Error information 


Intermediate Text 


Intermediate text is made up of fixed length (10-byte) 
records. The number of fixed length records is variable 
for each source statement, and is dependent on the 
statement type and the contents of the operand field. 


The following rules can be used to determine intermediate 
text file requirements. (The rules apply only to error- 


free source statements. A statement that contains errors 
generally requires less storage space.) 


All Instructions: 


e One record for each machine or assembler instruction, 
or comment statement. 


@ One record if there is a name field entry. 


Machine Instructions: One additional record for each 
term in the operand field. 


Source Program Size 
(Statements) 


Number of Tracks Required 
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Figure 23. Source File Space Requirements Chart 


Assembler Instructions: Symbol Table Entries 


e END, ENTRY, EQU, EXTRN, ORG, USING — One Whenever a symbol is used in the name field of an instruction 
additional record for each term in the operand field. (except a TITLE statement) it becomes a symbol table 
entry. When the assembler user requests a cross reference, 


@ ISEQ, PRINT, SPACE, START — One additional record all symbol table entries are added to the work file immedi- 


for each instruction. ately after the intermediate text. The symbol table entries 
are also 10-byte, fixed-length records. Assuming an average 
@ TITLE — Additional records = N/8 (plus one for any of one name entry for every four source statements, one 
non-zero remainder); where N is the number of sector per 100 source statements is required. 


characters in the TITLE operand field. 


: e DS/DC Cross-Reference Data 
— One additional record for duplication factor Cross-reference data is written in the same area as the 
: (default or specified value). intermediate text and symbol table entries and does not 


impose any additional space requirements. 
— One additional record for each term in the length 


specification. Error Information 


e DC Each statement in error requires a 10-byte error record; 
therefore, a track will contain at least 600 error records. 
— Address constant—One record for each term in 
the address constant expression. 
Work File Space Requirements 
— All other constants—Additional records - N/8 


(plus one for any nonzero remainder); where N is Figure 25 is a work file space requirements table showing 
@ the number of bytes required to contain the the number of tracks required for the number of source 
converted constant plus one. statements indicated. The requirements for intermediate 
text and symbol table entries are summed to get the 
Figure 24 is a sample list of instructions together with the table values. Approximately 40 sectors per 100 source 
intermediate text space requirements for each. statements are needed to cover most varieties of source 


statements. If a $WORK2 // FILE statement is not pro- 


vided on the Model 10 disk system assembler, the source 
file ($SOURCE) size is used for the work file size. 


Source Program Size Number of Tracks Required 
(Statements) 


es ee 


START 0 
SLC A(2),A 
MVC A(2),CON1 
ALC A(2),CON2 
HPL X’FF’,X‘FF’ 
DS CL2 
DC 1L2’500’ 
DC 1L2’-320' 
END ENTRY 


Figure 24. Intermediate Text Space Requirements 
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Figure 25. Work File Space Requirements Chart 
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OPERATING PROCEDURES 
Placing Assembler Subroutines in R (Routine) Library 


Assembler subroutines can be placed on disk in the R 
library by two methods. 


1. Punching an object deck and using the Library 
Maintenance program ($MAINT) to place it in the 
R library. 


2. Specifying OBJ in the OPTIONS statement to 
place the object program directly into the R 
library. The retain entry can be either temporary 
or permanent. 


For more information on the OCL and utility control state- 
ments needed to use $MAINT, see JBM System/3 Model 10 
Disk System Control Programming Reference Manual, 
GC21-7512, IBM System/3 Model 12 System Control Pro- 
gramming Reference Manual, GC21-5130, or IBM System/3 


Model 15 System Control Programming Reference Manual, 
GC21-5077. 


Placing a Punched Object Program in the R Library 


In the sample procedure shown below, the subroutine 
SUBRA is being placed in the R library from a punched 
object deck. 


// LOAD Statement: In this sample procedure, $MAINT 
is the routine which interrogates the // COPY statement 
and calls the proper routine to accomplish the desired 
results. 


F1 is the disk pack upon which the utility program resides. 


|| COPY Statement: The FROM parameter names the 
device holding the subroutine to be entered. The 
READER option must be used to copy the assembler 
punched object program. 


The LIBRARY parameter, R, specifies a relocatable library. 
The NAME parameter gives the name of the subroutine to 
be entered. This name must be the same as the program 
name (that is the name on the START instruction). The 
following names are restricted and cannot be used in this 
parameter: 


e ALL 
e DIR 


e SYSTEM 


The TO parameter specifies the physical destination of 
the object program (in this case, R1). 


The RETAIN parameter specifies the ultimate disposition 
of the object program. 


/{ CEND (Copy End) Statement: The // CEND 
statement must follow the object deck. 


// END: The // END statement must be the end of all 
library maintenance decks. 


Placing an Object Program Directly in the R Library 


When the object program is placed directly in the R 
library, it has the following characteristics in the library. 


e Name of the object program is the module name 
specified in the START instruction or the default 
module name. See the MODULE NAME MISSING 
diagnostic in Appendix C. System/3 Assembler — 
Source Language Error Codes and Diagnostics. 


e Retain entry in the library is temporary if OBJ or OBJ(T) 
is specified and permanent if OBJ(P) is specified. 


IBM System/3 Basic Assembler Coding Form 
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e@ Library to receive the object program is the disk speci- 
fied in the OBJECT operand of the // COMPILE state- 
ment. The default disk is the program disk. 


Using Assembler Object Program with the Program Loader 


The user may have the need to load a user-written assemb- 
ler object program as a stand-alone program. To use 

an assembler object program in this manner it is necessary 
to have the program punched into an object deck on the 
system punch device. The assembler language user ob- 
tains an absolute loader by specifying DECK and NOREL 
on the OPTIONS card (see NOREL option under OPTIONS 
Statement). The 96-column loader contains six cards and 
the 80-column loader contains one card. 


It is the user’s responsibility to ensure: 


1. That he has not referenced any address greater than 
the storage capacity of the System/3 on which the 
program is to be executed. 


2. That the address specified on the START instruction 
statement is greater than X‘FF’. (The START 
assembler statement must specify the address at 
which the program is to be loaded.) 


3. That the END statement indicates the start-of-control 
address. 


Note: If absolute object decks for more than one assembly 
are to be loaded together, then the loader must be re- 
moved from the front of the second and all subsequent 
decks, and the END card must be removed from the 

back of all decks except the last. 


IBM 5424 MFCU 


The procedure for loading and executing an assembler 
object program on the IBM 5424 MFCU is as follows: 


1. Clear MFCU. 


2. Place assembler object deck, including the loader, 
in primary hopper. 


3. Press MFCU START. 


4. Ready the printer. 


5. Set IPL SELECTOR to MFCU for Model 10 Disk 
System or ALT for Models 12 and 15. 


6. Press console PROGRAM LOAD to load and execute 
the assembler object program. (L1 or L2 halt is 
issued for error or not ready conditions on the 
MFCU.) 


/BM 2560 MFCM (Model 15 only) 


The procedure for loading and executing an assembler 
object program on the IBM 2560 MFCM is as follows: 


1. Clear MFCM. 


2. Place assembler object deck, including the loader, 
in primary hopper. 


3. Press MFCM START. 
4. Ready the printer. 


5. Set IPL SELECTOR to ALT. 


6. Press console PROGRAM LOAD to load and execute 
the assembler object program. (L1 halt is issued for 
error or not ready conditions on the MFCM.) 

IBM 1442 Card Read Punch (Models 12 and 15) 


The procedure for loading and executing an assembler 
object program on the IBM 1442 Card Read Punch is as 
follows: 

1. Clear 1442. 


2. Place assembler object deck, including the loader, 
in hopper. 


3. Press 1442 START. 

4. Ready the printer. 

5. Set IPL SELECTOR to ALT. 

6. Press console PROGRAM LOAD to load and execute 


the assembler object program. (L1 halt is issued for 
error or not ready conditions on the 1442.) 
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ASSEMBLER LISTING 


An important part of the assembler’s output is the assem- 
bler listing. The assembler’s printed output is on the system 
printer (under control of the // PRINTER OCL statement 
for Models 12 and 15). 


The listing is a printed reproduction of the source program 
and the corresponding object code generated for it to- 
gether with other important information. Figure 26 at 

the back of this section is a sample listing. Specifically, 
the listing consists of the following: 


Control Statements 


Any OPTIONS or HEADERS statements specified by 

the user are printed and specification errors are noted. 

A list of OPTIONS in effect during the assembly is then 
printed. The page is ejected before the control statement 
information is listed. 
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External Symbol List (ESL) 


The object program name, EXTRNs, and ENTRYs will 
appear in the following format: 


Symbol Type 
Program name MODULE 
ENTRY symbol ENTRY 
EXTRN symbol EXTRN 


Source and Object Listing 
The source and object listing consists of the following: 


e Error code for improperly coded statements (see 
Diagnostics in this section). 


e Location counter value, in hexadecimal, of the high 
order address of the object code generated by the 
corresponding source statement. 


@ The object code, in hexadecimal, generated by the 
corresponding statement. 


e@ The value, in hexadecimal, of the expression in the 
operand field of the EQU, USING, DROP, and END 
statements, the storage address, in hexadecimal, of the 
low order address of the DC constants, and DS storage 
areas. 


e Statement number, in decimal, for each statement, 
including comment statements. These numbers are 
assigned by the assembler. The statement number is a 
four-digit field which limits the assembly to 9,999 
statements. 


@ The source image, which is formatted according to the 
size of the printer used: 


Fold point for 96~ Fold point for 120- 
column printer or 126-column printer 


Source Record 


: - , a 
| Source Statement (Columns 1-88) I [:ovseq| 


1 52 53 76 77 88 89 96 


The following examples assume the ID/SEQ field is in 
columns 89-96 of the source record: 


Note: The ID/SEQ field may be from one to eight adja- 


cent characters long and may reside anywhere between col- 


umns 73-96. 


1. Ona 96-column printer, the ID/SEQ field is left- 


justified in columns 89-96 of the print line. If 
columns 53-88 of the source statement are blank, 
line 2 will not be printed. 


Object code Columns 1-52 of the 


field % lsource statement 


ID/SEQ field 


35 36 37 88 89 96 


Columns 53-88 of 
source statement 


53 88 


2. Ona120-column or 126-column printer, the 


~ ID/SEQ field is left-justified in columns 113-120 
of the print line. If columns 77-88 of the source 
statement are blank, or if the start of the ID/SEQ 
field on the source record is less than column 77, 
line 2 will not be printed. 


Object code Coiumns 1-76 of the 


field % lsource statement 1D/SEQ field 


35 36 37 


Columns 77-88 of 
source statement 


101 112 


112 113 120 


3. With the 132-column printer, the complete source 


image is printed on one line. 


Object code Columns 1-88 of the 


field % jsource statement !D/SEQ field 


35 36 37 124 125 132 | 


Note: Statements generated by the macro processor 
contain a plus symbol (+) in column 36. 
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Diagnostics 


The source and object program listing includes error codes 
for improperly coded statements. These errors are listed 
again, with a message, at the end of the source and object 
program listing under the heading DIAGNOSTICS. This 
list provides the following information: 


e@ Statement—The statement number, in decimal, (assigned 
by the assembler) of the statement which is in error. 


@ Error code—a 3-digit alphameric code. See 


Appendix C: System/3 Assembler—Source Language 


Error Codes and Diagnostics for a list of error codes and 
translations. 


e@ Message—A translation of the error code indicating the 
type of error made. 


Also included under DIAGNOSTICS are the following 
error summary statements: 


e Acount of the total statements in error in the assembly. 


e Acount of total sequence errors in the assembly if 
sequence check is requested. 
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Cross-Reference List 


If XREF is specified on the OPTIONS statement this list 
includes all symbol names referred to in the source program. 
The following columns are included: 


e@ Symbol—The symbol name. 


@ Length—The decimal length attribute of the symbol in 
bytes. 


@ Values—Value, in hexadecimal, of the symbol. 


@ Defined—Statement number, in decimal, where the 
symbol is defined. 


@® References—Statement numbers, in decimal, where the 
symbol is referenced. Symbolic references to data areas 
and machine registers whose contents may be altered by 
execution of a machine instruction are flagged with an 
asterisk. 


At the end of the cross-reference list, the error summary 
statements are printed again. 


SUBRC FXTERNAL SYMBOL LIST 
SYMBOL TYPE VER 00, MOD 00 01/30/76 PAGE 1 


SUBRC MODULE 


SUBRC SAMPLE EXIT SUBRUUTINE--FIELI AND INDICATOR 
ERR LOC OBJECT CCLE ADDR SIMT SOURCE STATEMENT VER 00, MOD 00 01/30/76 PAGE 2 


RRR REE EK EERE KEES SEEK EE EERE EEK SESE RER EEE EERE EEE EEEE SEEK EE 
NAME @eeeseseceeaesne28 SUBRC. 


FUNCTION secsccee EXIT SUGROUTINE wITk FIELD AND INDICATOR 
PARAMETERS. 


THE CODE GENERATEC BY THE COMPILER IS AS FOLLOWS: 


SUBRC 

ILL*FLELC LENGTH-1* 
AL2*ADCRESS OF RIGHT OF FIELD® 
XL1L*O0G* 

XLL©INCICATOR MASK* 
XLI*RECISTER 1 DISPLACEMENT! 


Hee eH eae HH He HK KE HK 


* 
Tec eS ESS SESS SS SSCS SSC SCSLS SSS SSS CSCC SSE SSL LSS SLR CESS TST SSL SSE tT EE TSS SS SS 
SUBRC START O 
GET+3,ARR SAVE PARM AUDBR 
CON6sARR INCREMENT TG RETURN 
RET+3,ARR SAVE RETURN 
SAVE+3 92 SAVE XR2 
Ky 2 | GET PARMETER ADDRESS 
TEST4#2(2) 95092) MCVE IN MASK AND DISPLACEMENT 
4-K (41) 9 #-* TEST INDICATOR 
SAVE INDICATOR OFF 
2092)92 GET CONTROL FIELD ADDRESS 
5(12)92 GET LOOK UP ACDRESS 
Ol e2)9C°C! MOVE IN C*C? 
SAVE *-%,2 RESTORE 
> RET or RETURN 
0031 33 CON6 IL2"6! 
0008 34 ARR 8 
FEEF 5 


x 
x 
x 
* 
* 
* 
*x 
* 
* 
* 
* 
x 
% 
* 
* 
* 


TOTAL STATEMENTS IN ERRUR IN THES ASSEMBLY 


SUBRC CROSS REFERENCE 

SYMBOL LEN VALUE CEFN REFERENCES VER 00,MOD 00 01/30/76 PAGE 3 
ARR COl O008 0C34 C020 OG21* 0022 

CON6 CG2 C031 C033 C021 

GET CC4 COLC C024 C020 

RET CC4 CO2C ClU32 0C22% 

SAVE 004 0G2e8 Ca3l CC23* CC27 

SUBRC Oocl oococ GC19 

TEST 0C3 COOLS C026 CO0z5* 

TOTAL STATEMENTS IN ERRUR IN THIS ASSEMBLY = 0 


Figure 26. Sample Assembler Listing 
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= 


External Symbol List (ESL) Table Size ; 


The ESL table is an execution time main storage table 
containing the module name (START statement name or 
ASMOB3J) and each EXTRN and ENTRY symbol defined 
in an assembly. The total of EXTRNs and ENTRYs 
allowed in a single assembly is limited by the ESL table 
size. 


Using the Model 10 disk system assembler, the limit is 74 
EXTRNs and ENTRYs. 


Using the Model 12 and Model 15 assembler, the limit varies 
with the amount of storage available in the execution partition. 
The limiting sizes and associated storage ranges are: - 


Storage Available Limit of EXTRNs and ENTRYs 


10K 84 
12K 124 
14K 169 
16K 209 
18K - 48K 254 
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MACHINE LANGUAGE INSTRUCTION FORMATS Register address 


Ope aupnyede Data selection 


The first byte of each instruction, the operation code, 
specifies the addressing modes to be employed by the 
instruction in bits O through 3, and the operation to be 
: performed in bits 4 through 7. 


e Branch or skip condition 


e@ Device address and functional specifications 


; © Code Control Code 
The third byte of an instruction in the Command Format 
contains additional data pertaining to the command to be 
executed. 


The second byte of each instruction is the Q code. In 2- 
address formats, the Q code is always a length count. In 
other formats, depending upon the operation specified, the 
Q code can be: 

é: enetcount Storage Addresses 
For instructions in the 1-operand and 2-operand formats, 
the third byte of the instruction and all bytes following 
are storage address information. 


e Immediate data 


Skip Conditon 
Halt Identifier 


= ©) Command Format 


e Bit mask 
3 Bytes 
Bytes Address 
Length Destination Source Displacement 
Count Address Address 
; 0 1 
Displacement | Displacement 78 15 - ae). 
0 78 15 16 23 24 31 Pad oe 
wo NC 
5 Bytes Immediate Data : Destination Address ; 
Op Length Direct Source | Bit Mask Source Address | 
Code | Count Destination Address | Register Address Branch Address 
Address Displacement | Branch or Skip Condition 1 
0 78 15 16 31 32 a9) ee eereenon | | 
cee | 
~~ ! | 
7 4Bytes ™ { 
. Op Length Destination Direct : 
Code Count Address Source Direct 
as Displacement Address Address 
oO 78 15 16 23 24 39 0 78 15 16 31 
(B) One-Address Formats 
6 Bytes 
3 Bytes 
Op Length Direct Direct 
Code Count Destination Source Control 
Address Address Code 
8) 78 15 16 31 32 47 | 
0 7'8 15! 16 23 
— ~ 4 
(A) Two-Address Formats | Device Address i 
\ and functional } 
" specifications J 
I 
t 
: 1 
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jon Mnemonic Type 
ZAZ | 


AZ Le2 ADDRESS —_——+ 


Direct 


cD [Op [0 [Operand One | Operand Tao 


- 2 ADDRESS>} 


Direct Indexed 


cD [Op [ O]Operend One | 02 | 
<_——___— 5 bytes ——+| 


R1 


2 ADDRESS—>| 


Direct Indexed 


| Op | Q]Operand One |_D2_ 


5 bytes 


1 ADDRESS 


Direct 


Ke 2 ADDRESS>} 


[oe [a] bi] Opera Two. 
~~ 5 bytes———>| 


R1 


AZ 2 ADDRESS 


Indexed 


ED |Op| a] 01] b2 | 
|-~———— 4 bytes —>| 


R1R1 


64 


2 ADDRESS ——> 


Indexed Direct 


fOp[ OT] D1 | Operand Two | 
+ 5 by tes 


R2 


* Modei 15 only. 


Legend: 


D1 
D2 
Rl 
R2 


Displacement, operand 1 
Displacement, operand 2 
Register 1 
Register 2 


& *Model 15 only. 


1 ADDRESS 


>| 


{ndexed 


pOpj Of 01 
a 3 bytes 


XR2 


Dire 
| Op | Q Address 


jefe 4 bytes ———p-| 


LOp|_ Q |] d2_ 
jpeg 3 DY tes npn} 


t= 3 bytes —— p>} 
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oP 


Op Code Q Ps re Operands ——_—____—-.»-} Total [Type 
(one byte) Code Instr 

Bits 

0-3 Bits 4-7 


Length 
Jne |-—First «—- Second 
Byte 


2 Bytes 2 Bytes Direct 


Direct 
oe 1 Byte Disp 


Index-By R1 
1 Byte Disp 
Index-By R2 


1 Byte 2 Bytes Direct 
Displacement 
Indexed 


By R1 


1 Byte Disp 
Index-By R1 


1 Byte Disp 
Index-By R2 


2 Bytes Direct 


Displacement 1 Byte Disp 
Indexed Index-By R1 
By R2 1 Byte Disp 
Index-By R2 


ea 


Twafool 1 Ta [of | _ 
fefefolat | |} 1117 +iii it~ 
ofefolal |? >t ttyl i ty 
Oe 
Pe frfonfve fookerd | | | Tt ELT Tt f 


*Model 15 only. 


2 Bytes Direct 
1 Byte Disp 
Index-By R1 
1 Byte Disp 
Index-By R2 


beelteauealtee 


= 1 Byte 


K 


Summary 


MNEMONIC OPERATION CODES (MACHINE) — *** These instructions are for the Model 15 
but they can also be generated on the 


Instruction* Mnemonic Operation Code Model 12 through the macros $LCP, $SCP, 
@ and $CCP. For more information concerning 
Zero and Add Zoned Decimal ZAL the use of the Model 12 macros, see 
Add Zoned Decimal AZ IBM System/3 Models 10 and 12 System 
Subtract Zoned Decimal SZ Control Programming Macros Reference 
Manual, GC21-7562. 
Move Hex Character MVX 
Move Characters MVC >) Two-address 
Compare Logical Characters CLC | Format** 
Add Logical Characters ALC 
: Subtract Logical Characters SLC 
Insert and Test Characters ITC 
: Edit ED 
Move Logical Immediate MVI 
- Compare Logical Immediate CLI 
Set Bits On Masked SBN 
Set Bits Off Masked SBF 
Test Bits On Masked TBN 
Test Bits Off Masked TBF 
Store Register ST One-address 
Load Register L Format** 
Add to Register A 
Branch On Condition BC 
Test I/O and Branch TIO 
Sense I/O SNS 
Load I/O LIO- 
Load Address LA 
Load CPU*** LCP. 
Store CPU*** SCP . 
Advance Program Level APL 
Halt Program Level HPL 
Start I/O SIO. 5 Command 
Command CPU*** CCP Format** 
Jump On Condition JC 


* For information concerning specifications for the use of 
: these instructions with the Model 10, see the JBM System/3 
: Model 10 Components Reference Manual, GA21-9103, 
or with the Model 15, see the JBM System/3 Model 15 
i Components Reference Manual, GA21-9193. 


** See Machine Language Instruction Formats in this 
appendix. 
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EXTENDED MNEMONIC CODES 


Instruction Mnemonic Operation Code Q Code 


Move Hex Character (MVX) 
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Move to Zone from Zone 

Move to Numeric from Zone 
Move to Zone from Numeric 
Move to Numeric from Numeric 


Branch On Condition (BC) 


Branch 

Branch High 

Branch Low 

Branch Equal 

Branch Not High 

Branch Not Low 

Branch Not Equal 

Branch Overflow Zoned 
Branch Overflow Logical 
Branch No Overflow Zoned 
Branch No Overflow Logical 
Branch True 

Branch False 

Branch Plus 

Branch Minus 

Branch Zero 

Branch Not Plus 

Branch Not Minus 

Branch Not Zero 


Jump On Condition (JC) 


Jump 

Jump High 

Jump Low 

Jump Equal 

Jump Not High 

Jump Not Low 

Jump Not Equal 

Jump Overflow Zoned 
Jump Overflow Logical 
Jump No Overflow Zoned 
Jump No Overflow Logical 
Jump True 

Jump False 

Jump Plus 

Jump Minus 

Jump Zero 

Jump Not Plus 

Jump Not Minus 

Jump Not Zero 


Command CPU (CCP—Model 15 only) 


Supervisor Call 


X00’ 
X02’ 
X01’ 
X03’ 


X87’ 
X‘84’ 
X82’ 
X81? 
X04’ 
X02’ 
X01’ 
X‘88’ 
X*A0’ 
X08’ 
X*20’ 
X*10’ 
X‘90’ 
X°84’ 
X°82’ 
X81’ 
X04’ 
X02’ 
X01’ 


X°87’ 
X84’ 
X82’ 
X81? 
X04’ 
X02’ 
X01’ 
X88? 
X*A0’ 
X08’ 
X20’ 
X*10’ 
X‘90’ 
X*84’ 
X82’ 
X81’ 
X04’ 
X02’ 
X01’ 


X*10’ 


Assembler Language to Machine Language Relationships 


The following charts show the relationship between a 
machine instruction statement as coded by the System/3 
Basic Assembler Language programmer and the machine 
language as generated by the assembler. 


For example, the instruction coded by the programmer is 
ZAZ FINAL(5),DONE(1,1). From the second line of the 
first of the charts we can develop the relationship between 
the instruction and the machine code as follows (assume 
FINAL is a relocatable symbol with value X‘131B’ and 
DONE is an absolute symbol with value X‘BA’): 


Machine instruction statement 
as input to assembler 

ee ee ee 
ZAZ FINAL (5), DONE (1, 1) 


[i 


ZAZ Ai(L1),D2(L2,R1) 


Five-byte machine instruction generated by assembler 


Used in this manner, the following charts show what 
machine code results from a particular assembler language 
statement, and vice versa, what assembler language format 
obtains a particular machine code format. 


The abbreviations used on the following pages mean: 


Al Direct address, operand 1 
A2___ Direct address, operand 2 
D1 Displacement, operand 1 

D2 Displacement, operand 2 

L1 Length of operand 1 

L2 Length of operand 2 

R1_ Register 1 

R2_ Register 2 

RX Local storage register 

J Immediate data 


Disp D2 
rom R1 | 
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Tomi [oma | om | ome | ome | ome 
04 


A1(L1),A2(L2) 


Ai(L1),D2(L2,R1) 


Ai(L1),D2(L2,R2) 


D1(L1,R1),A2(L2) 


D1(L1,R1),D2(L2,R1) 


D1(L1,R1),D2(L2,R2) 


D1(L1,R2),A2(L2) 


D1(L1,R2),D2(L2,R1) 


D1(L1,R2),D2(L2,R2) 


NOTES: 
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if L1 or L2 ts not specified, the implied length is used. 


if D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 


L1-L2, L2-1 Address A1 Address A2 
14 L1-L21L2-1 | Address A1 Disp D2 | 
! | from R1| 
24 L1-L2 | L2-1 Address al Disp D2 | 
y | from R2}| 
L1-L2+s L2-1 Disp D1 Address A2 | 
! 
from R1 | | 


Disp D1 
from R1 


Disp D2 
from R1 


L1-L21 L2-1 
i 


L1-L21 12-1 
| 


Disp D2 
from R2 


Disp D1 | 
from R1 


Address A2 
! 


L1-L2 ! L2-1 Disp D1 


| from R2 


94 L1-L24L2-1 Disp D1 Disp D2 
i | from R2: from-R1 | 

A4 L1-L2) L2-1 Disp D1 | Disp D2 

| ! from R2 from R2 


06 


L1-L2$L2-1 ! Address A1 { Address A2 


A1(L1),A2(L2) 


A1(L1),D2(L2,R1) 


A1(L1),D2(L2,R2) 


Disp D2 


D1(L1,R1),A2(L2) L1-L2 {12-1 Disp D1 Address A2 


from R1 | 


D1(L1,R1),D2(L2,R1) 56 Lit2'L217 Dispb1 | Disp D2] | 
| | from R1 from R1 | 
D1(L1,R1),D2(L2,R2) 66 L1-L2°L2-1, Disp D1 Disp D2] ! 


| fromRi§ from RI | 


D1(L1,R2),A2(L2) L1-L2 ,L2-1 Disp D1 | Address A2 
1 


y from R2 
t 
D1(L1, R2), D2(L2, R1) 96 L1-L2,12-11 Disp D1 Disp D2] | 

| 
from R2 from R1 | 
! 
D1(L1,R2),D2(L2,R2) AG L1-L2!L2-1! Disp D1 Disp D2 | 
| from R2! from R2 


NOTES: 


If L1 or L2 is not specified, the implied length is used. 


if D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format 


A1(L1),A2(L2) L1-L2'1L2-1 " Address A1 Address A2 


aS See 
A1(L1),D2(L2,R1) [| LV-L21L2-4 | Address A1 


A1i(L1), D2(L2,R2) 


D1(L1,R1),A2(L2) L1-L2 L2-1 | Disp D1 Address A2 ~ 

from R1 

D1(L1,R1),D2(L2,R1) 57 L1-L2, L2-1 { Disp D1 Disp D2 | . 
from R1 from R1 | ; 


D1(L1,R1),D2(L2,R2) 67 L1-L2!L2-1 Disp D1 isp D2 | 
from R1 | from R2| | 
7 


L1-L2!L2-1 Disp D1 Address A2 


D1(L1,R2),A2(L2) 8 


from R2 | 


D1(L1,R2),D2(L2,R1) 97 L1-L2,L2-1 | DispD1 | Disp D2] | 
' from R2 from R1 | 


D1(L1,R2),D2(L2,R2) AT L1-L21L21 | DispD1 isp D2) | 
| l | from R2! from R2| | 
eee eee eee ee 


NOTES: 


If L1 or L2 is not specified, the implied length is used. 


If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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8 | 


4 
O Address A1 Address A2 


A1(1),A2 


Ai(!),D2(,R1) 


Address A1 Disp D2 
! 


| from RY 


A1(!),D2(,R2) 


D1(1,R1),A2 Disp D1 | Address A2 


from R1 


| 

l 

| 

| 

| ] 

( 

58 | Disp D1 | Disp D2] | | 

| from R1 from R1 | ) 
{ 

| 

| 

| 

| 

| 

| 

| 

| 


D1(1,R1),D2(,R1) 


D1(1,R1),D2(,R2) 68 , | | Disp D1 Disp D2 | 
{ from R1 | from R2 | 

88 I Disp D1 Address A2 

| from R2 | 


D1(1,R2),A2 


D1(1,R2),D2(,R1) 


D1({,R2),D2(,R2) 


AS ] Disp D1 |! Disp D2]! 
| | from R2 |! from RQ}! 


| may be specified on either operand, and must have the value X‘00’,X’01',X‘02’, or X‘03’. 


NOTES: 


If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 


For the extended mnemonics of the MV X instruction, |-field information is inherent in the mnemonic and the I-field 
is omitted from the operand field. See Extended Mnemonic Codes for the extended MVX and the associated Q-codes. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation Operands 
oc 1 41-1 


A1(L1),A2 


A1(L1),D2(,R1) 


A1(L1),D2(,R2) 


D1(L1,R1),A2 


D1(L1,R1),D2(,R1) 


D1(L1,R1),D2(,R2) 


D1i(L1,R2),A2 


D1i(L1,R2),D2(,R1) 


D1(L1,R2),D2(,R2) 


NOTES: 


54 


L1 may be specified on either operand; if L1 is not specified, the implied length of operand one is used. 


If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 


Address A1 { Address A2 


1C { 1-1 Address A1 Disp D2] | 
| | from R1j | 


| 
2C | Address A1 


fromR2! = fromR1 


| 

[ 

L1-1 Disp D1 Address A2 | 

| | from R1 

5C ; ott | DispD1 ! Disp D2]! | 
from R1 from R1 } 

6C L1-1 Disp D1! Disp D2]I | 
| | fromR1 | from R2 | 

L1-1 | Disp D1 l Address A2 | 

from R2 : | 

i 

Disp D1 Disp D2 | 

{ 

i 

| 


AC L1-1 Disp D1 | Disp D2]! 
| | from R24 from R2]! 


mas 


Assembler Instruction Format Machine Instruction Format 


OD L1-1 | Address A1 Address A2 


A1(L1),A2 


A1(L1),D2(,R1) Disp D2 


Address A1 
| from R1 


A1i(L1),D2(,R2) 


D1(L1,R1),A2 Disp D1 Address A2 


| from R1 


5D Li-1 Disp D1 Disp D2 || 
from Ri | from R14} | 


6D L1-1 Disp D1 | Disp D2 
| from R1 from R2 | 
D | L1-1 


D1(L1,R1),D2(,R1) 


D1(L1,R1),D2(,R2) 


D1(L1,R2),A2 8 - Disp D1 | Address A2 


from R2 


=_—— oe seo ee ee welll eee eee eee eel eee eee 


D1(L1,R2),D2(,R1) 9D L.1-1 Disp D1 Disp D2 | 
| from R2 | from R11]! 
D1(L1,R2),D2(,R2) AD L1-1 Disp D1 | Disp D2 
| from R2 from R2 


NOTES: 
L1 may be specified on either operand; if L1 is not specified, the implied length of operand one is used. 


lf D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format 


§ § 8 
Ai(L1),A2 OE Address A1 | Address A2 


A1i(L1),D2(,R1) 


A1(L1),D2(,R2) 


D1(L1,R1),A2 Disp D1 | = Address A2 
from R11 | | 


D1(L1,R1),D2(,R1) 5E | L1-1 Disp D1 Disp D2] 
from R1 | from R1 | 
I 


| 
D1(L1,R1),D2(,R2) Disp D1 | Disp D2 
from R1 from R2 


D1(L1,R2),A2 Disp D1 Address A2 
from R2 


D1(L1,R2),D2(,R1) 9E { L1-1 | Disp D1 Disp D2 | 
from R2 | from R1] | 


D1(L1,R2),D2(,R2) AE L1-1 | Disp Di Disp D2] 
| fromR2! from R2 
fe eee ee ee 


NOTES: 
L1 may be specified on either operand; if L1 is not specified, the implied length of operand one is used. 


If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format 


SLC A1i(L1),A2 


SLC A1(L1),D2(,R1) 1F L1-1 Address A1 | Disp D2 { 
| [ | from R1 
SLC A1(L1),D2(,R2) 2F { L1-1 | Address A1 Disp D2 | 
{ | fromR 
SLC D1(L1,R1),A2 4F 1 1-1 Disp D1 Address A2 | 
ie from R1 |! 
| | 
SLC D1(L1,R1),D2(,R1) Disp D1 1 Disp D2] | 
~ from R1 from R1 | 
SLC D1(L1,R1),D2(,R2) 6F L1-1 Disp D1 Disp D2] | 
| from R1 from R2} | 
SLC D1(L1,R2),A2 18F L1-1 Disp D1 Address A2 
( from R2 | 
SLC D1(L1,R2),D2(,R1) Disp D1 1 Disp D2 
| from R2 f 
SLC D1(L1,R2),D2(,R2) | Disp D1 Disp D2 
! from R2!~ from RQ| | 
a Se, 


NOTES: 
L.1 may be specified on either operand; if L1 is not specified, the implied Jength of operand one is used. 


if D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format 


Ai(L1),A2 


A1(L1),D2(,R1) «fe L1-1 Address A | Disp D2}! 
| from Rij | 


Ai(L1),D2(,R2) 2B L1-1 Address A1 Disp D2 | 
: 
I 
5 : 


D1(L1,R1),A2 4 Disp D1 Address A2 7 


from R1 


Disp D2 
from R1 


D1(L1,R1),D2(,R2) 6B , ot Disp D1 | Disp D2]! 
| from R1 from R2| 
B Li-1 


D1(L1,R1),D2(,R1) 5B L1-1 Disp D1 | 
I 


from R1 


D1(L1,R2),A2 8 Disp D1 Address A2 


from R2 | 


| 
D1(L1,R2),D2(,R1) Disp D1 Disp D2 | 
from R2 from R1 


D1(L1,R2),D2(,R2) AB ; ut Disp D1 | Disp D2 | 
! from R2.. from R2|! 
Sa eee eae eee 


NOTES: 
Operand one must address the data field at the leftmost byte. 
L1 may be specified on either operand; if L1 is not specified, the implied length of operand one is used. 


If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format. 


OA 


1 4-1 | Address A1 |! Address A2 
| 


A1(L1),A2 


A1(L1),D2(,R1) L1-1 Address A1 Disp D2 
| | | 
| from R1 , 
A1(L1),D2(,R2) 2A 1-1-1 Address A1 Disp D2} 1 
l | from R2 
D1(L1,R1),A2 L1-1 Disp D1 Address A2 
| from R11 | i 


D1(L1,R1),D2(,R1) 


5A | L1-1 l Disp D1 Disp D2 | 4 
from R1 from R1 | 
6A f 1-1 Disp D1 | Disp D2] 
| from R14 from R2} | 

| 


8A L1-1 l Disp D1 Address A2 
from R2 | 
I 
9A { 1-1 [| Disp D1 | Disp D2 
from R2!~ from R1 
] 
AA L1-1 Disp D1 | Disp D2 


| ! from R21] ~~ from R2] | 
fe are ee 


D1(L1,R1),D2(,R2) 


D1i(L1,R2),A2 


D1(L1,R2),D2(,R1) 


D1i(L1,R2),D2(,R2) 


NOTES: 
L1 may be specified on either operand; if L1 is not specified, the implied length of operand one is used. 


If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format 
Al,| 


é 
MVI ; 3 ( Address A1 ! 
MVI D1(,R2),| 
NOTE: 


C i 
7C | 1 Disp D1 
from R1 


BC | Disp D1 
i | from R2 
Cid 


-_-> === se @ & = a aD 


If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


CLI Ai,| 
CLI D1(,R1),I 
CLI D1(,R2),1 


| 
| 
NOTE: 


3D 1 | Address A1 | 
| 
7D | Disp D1 
from R1 
| 
BD I | Disp D1 
{ from R2 


if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Machine Instruction Format 
Operation Operands Op-Code Operands 
! 


U ¢ 
SBN A1,| 3A | 1 Address A1 ir 

| | 
SBN D1(,R1),! , Disp D1 | 
fromRi} , | 
| 
SBN D1(,R2),! | Disp D1 | 

| from R2| | 


NOTE: 


if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format 


,/ 


D1(,R1),I 


i Disp D1 


D1(,R2),! , 
from R2 


NOTE: 


If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Assembler Instruction Format Machine Instruction Format 


Address A1 

Disp D1 
from R1 
Disp D1 


| | from R2 
a ea 


1,l 


D1(,R1),! 


D1(,R2),I 


NOTE: 


if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Assembler Instruction | Assembler Instruction Format | Machine Instruction Format 


Address At 
NOTE: 


from R2 


If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format 


ST A1,.RX 34 RX Address A1 ) 
ST D1(,R1),RX 
ST D1(,R2),RX 
NOTE: 


Disp D1 
| from R1 


RX | Disp D1 
| from R2 


If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


: Assembler Instruction Format Machine Instruction Format 


35 RX 


A1,RX Address A1 


D1(,R1),RX 


75 | BX | Disp D1 


from R1 


D1(,R2),RX 


Disp D1 
from R2 


BS , RX 


NOTE: 


If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


A A1,RX 
A D1(,R1),RX 
A D1(,R2),RX 


36 RX | Address A1 
NOTE: 


76 RX | Disp D1 
| from R1 

B6 RX Disp D1 

| | from R2 


If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


— ab aah eumh Gumh Gap GEE an 
owe ose =. =F = oD 
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from R1 
D1(,R2),! 
NOTES: 


EO | Disp D1 
| | from R2 


if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


For the extended mnemonics of the BC, the second operand (1-field) is not used since the information is inherent in the mnemonic. 
See Extended Mnemonic Codes for the extended branches and their associated Q-codes. 


| Assembler Instruction Format Instruction Format Machine Instruction Format 


FE = 
NOTE: 


: Disp D1 


D1(,R1),! 


| from R1 


: Disp D1 
| from R2 


D1(,R2),! 


If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Assembler Instruction Format Machine Instruction Format 
il Address A1 
| 
D1(,R1),! i 
D1(,R2),! 
NOTE: 


| Disp D1 
| from R1 


if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Page of SC21-7509-6 
Issued 24 June 1977 
By TNL: SN21-5536 


Assembler Instruction Format Machine Instruction Format 


{ Disp D1 
from R1 


Operation 


Al, 


D1(,R1),! 


D1(,R2),! Disp D1 


from R2 


NOTE: 


If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Machine Instruction Format | 
Operation Operands Op-Code Operands 
RX 


8 é 
LA A1,RX C2 Address A1 
LA D1(,R1),RX | Disp D1 
LA D1i(,R2),RX | Disp D1 
from R2 


NOTE: 


if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Assembler Instruction Format Machine Instruction Format 


LCP A1,RX 3F RX Address A1 
LCP 
LCP 


D1(,R1),RX 7F RX Disp D1 
I from R1 
D1(,R2),RX BF y RX Disp D1 
from R2 
The Model 15 LCP instruction can also be generated on the Model 12 through the 


$LCP macro instruction; see /BM System/3 Models 10 and 12 System Control 
Programming Macros Reference Manual, GC21-7562. 


NOTES: 


if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format 

SCP A1,RX 3E RX | Address A1 

SCP D1(,R1),RX 

SCP D1 (,R2),RX 

NOTES: 


7E | RX Disp D1 
from R1 


BE RX { Disp D1 
from R2 


The Model 15 SCP instruction can also be generated on the Model 12 through the $SCP 
macro instruction; see /BM System/3 Models 10 and 12 System Control Programming 
Macros Reference Manual, GC21-7562. 


if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Assembler Instruction Format Machine Instruction Format 


ee CE | eos eens oe 
a a eee) 


The APL is a NO-OP instruction on the Model 15. 


Assembler Instruction Format Machine Instruction Format 


Assembler Instruction Format Machine Instruction Format 
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= 


NOTES: 


The Model 15 CCP instruction can also be generated on the Model 12 through the $CCP 
macro instruction; see /BM System/3 Models 10 and 12 System Control Programming 
Macros Reference Manual, GC21-7562. 


For the SVC form of the CCP instruction, the Q-code is inherent in the mnemonic and the RX field is omitted 
from the operand field. See Extended Mnemonic Codes for the associated Q-code. 


Fe a cs | 


*If the first operand is absolute, this value is placed in byte 3. 
If the first operand is relocatable, the displacement from the next sequential instruction to address A11 is placed in byte 3. 


NOTE: 


For the extended mnemonics of the JC, the second operand (I-field) is not used since the information is inherent in the mnemonic. 
See Extended Mnemonic Codes for the extended jumps and their associated QO-codes. 
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Appendix B: Assembler Instruction Reference Table 


Operation Entry Name Entry Operand Entry 


0 
‘?) 


Any Symbol or Blank One operand entry containing: Duplication Factor, Type, Length, Constant. 


DROP Specified register (1 or 2). 


Any Symbol or Blank One operand entry containing: Duplication Factor, Type, Length. 


EJECT Blank Blank. 


Blank A relocatable expression or blank. 


ENTRY Any relocatable name entry found in the current program. 


EQU Any Symbol An expression. 


One relocatable symbol not found in the current program which may 


EXTRN be followed by an absolute expression enclosed in parentheses. _ 


ICTL Two decimals in the form. of B,E. 


Blank Blank or two decimal values in the form L, R. 


Blank Blank operand or an expression (A) optionally followed by two absolute 


expressions in the form A,B,C. 


PRINT 


Blank Model 10 Disk System: One or two entries from DATA, NODATA, ON, 


OFF. 
Model 12 and Model 15: One to three entries from DATA, NODATA, 
GEN, NOGEN, ON, OFF. 


SPACE Blank 


START Name or Blank 
TITLE Name or Blank 


USING Blank 
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Appendix C: System/3 Assembler — Source Language Error Codes and Diagnostics 


INVALID NAME LENGTH Name field entry greater than six characters 


INVALID CHARACTER IN NAME Name starts with non-alphabetic or contains an invalid character 


NAME NOT ALLOWED ON THIS Name field entry not allowed on this instruction 
INSTRUCTION , 


REFERENCE TO UNDEFINED SYMBOL The referenced symbol is not defined in this program 


NAME MISSING FROM Name field entry missing from EQU instruction 
INSTRUCTION REQUIRING ONE 


= PREVIOUSLY DEFINED SYMBOL Symbol! has been previously defined in this program 


MODULE NAME MISSING START instruction missing, or START instruction present but name field 
entry (module name) missing. Assembler assigns the default module: 
name ASMOBJ. 


INVALID OPERATION CODE Undefined operation field entry 

INVALID ORIGIN Attempt to ORG to a value less than the initial value of the location counter 

INVALID OR ILLEGAL ICTL Operand error on ICTL, or ICTL not the first statement in the program. 
(ICTL treated as last source statement in program) 

INVALID START INSTRUCTION START instruction encountered after location counter is initialized 

LOCATION COUNTER ERROR Location counter overflow (greater than 65536) or attempt to reference 
the location counter at 65536 

MISSING END STATEMENT END statement missing from the program 

INVALID OPERAND DELIMITER An operand field syntactical delimiter is either misplaced or missing 

rd INVALID OPERAND FORMAT The operand field is not of the proper format for this instruction 


MISSING OPERAND Operand field entry missing from instruction requiring one 
INVALID SYNTAX IN EXPRESSION Violation of one or more expression syntax rules. 
EXPRESSION VALUE TOO LARGE Final expression value not in range -216 to 216-1 
INVALID OPERAND One or more operand entries do not meet specifications for this instruction 
ARITHMETIC OVERFLOW intermediate expression value not in the range -224 to 224-4 
ADDRESSABILITY ERROR | Relocatable displacement outside the range of USING instruction 
REGISTER SPECIFICATION ERROR Index register specification not 1 or 2 
INVALID CONSTANT Error in constant specification on DC instruction 
. INVALID CONSTANT TYPE | Data type specified on DC/DS is not valid 

™ INVALID DUPLICATION FACTOR Error in duplication factor specification on DC/DS 

INVALID LENGTH SPECIFICATION Error in length specification 

- : INVALID STATEMENT DELIMITER The column following the statement field is not blank 
RELOCATABLE MULTIPLICATION A relocatable term used in multiply operation 


RELOCATABILITY ERROR A relocatable expression is used where an absolute expression is required, 
or an absolute expression is used where a relocatable expression is required 


INVALID SYMBOL Invalid character in or invalid length of a symbol in the operand field 
INVALID SELF-DEFINING TERM Error in the format of a self-defining term 

SELF-DEFINING VALUE TOO LARGE Value of self-defining term is outside of range -2'6 to 216-1 
INVALID IMMEDIATE FIELD Immediate field not in range X’00’ to X’FF’ 


INVALID DISPLACEMENT Absolute displacement not in range 0 to 255 
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a en ee ee ee ee el 


INVALID EXTRN Symbol is invalid or already defined in the program or subfield 


is invalid. 


TOO MANY ESL RECORDS More than allowed number of EXTRN and ENTRY statements 
were found in the program. This count includes multiple 
EXTRNs and ENTRYs, ENTRYs with valid symbols which are 
not defined, and EXTRNs with valid symbols which are defined 
in the program. See ESL Table Size in Part I/.. Programmer’s 
Guide. 
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Appendix D: 


Assembler subroutines can be linked to an RPG II program. 
The RPG II program passes parameters as it branches to 

the assembler subroutine. To write a subroutine that will 
be linked to an RPG II program the following rules must 
be used: 


1. The name of the assembler subroutine must be 
SUBRxx. xx can be any valid alphabetic characters 
for user-written subroutines. (Numeric characters 
are reserved for IBM-supplied subroutines.) The 
name used must be the same as the name used in 
the RPG II program. 


Upon entry to the assembler language subroutine, 
the address recall register (ARR) contains a pointer 
to the parameters which represent the fields to be 
referenced by the assembler subroutine. The return 
point to the RPG II program is the first byte after 
the parameters. 


If the subroutine makes use of registers 1 and 2, the 
contents of these registers must be stored upon 
entry to, and restored before exit from, the 
subroutine. 


USING FIELDS IN THE RPG If PROGRAM 


When linkage is effected from RPG II to an assembler 
subroutine, three possible areas in the RPG II program can 
be referenced by the subroutine. They are: field, table 

or array, and indicator. 


Referencing a Field in an RPG II Program 
The following parameters (symbolic form of code 
generated by the compiler) are passed by RPG II when a 
field is to be referenced: 

B SUBRxx 
DC IL1‘Field length -1’ 


DC AL2(rightmost address of field) 


Assembler Language Subroutine To RPG I! Linkage 


Referencing a Table or Array in an RPG I! Program 


The following parameters (symbolic form of code 
generated by the compiler) are passed by RPG II when a 
table or array is to be referenced: 


B  SUBRxx 


DC IL1‘Entry length-1’ 


DC AL2(leftmost address of table control field) 


The subroutine can refer to the table or array defined in 
the RPG II program by utilizing the control field created _ 
for that table or array. This control field, one of which 

is created for each table or array built by the RPG II 
program, is in the following format: 


Bytes Meaning 

1-2 Rightmost address of the first entry. 

3-4 Rightmost address of the last entry. 

5-6 Initialized to rightmost address of first entry; 
used at object time for rightmost address of 
the last looked-up entry of a table. 

7-8 Length of an entry. 


The subroutine can obtain the data retrieved from the last 
RPG II table LOKUP by using the address in bytes 5-6. 
To access the table or array itself, the address in bytes 1-2 
must be used. 


Data used by the subroutine must be left unpacked for the 
RPG II program. 
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eee 


Referencing an Indicator in an RPG I! Program Linkage for I/O Subroutines 


The following parameters (symbolic form of code generated The following linkage is generated by RPG II to communi- 
by the compiler) are passed by RPG II when an indicator cate with the user-supplied I/O subroutine. 
is to be referenced: 


1. DTF (define-the-file) format: 


B  SUBRxx 
Bytes Description 
DC XLI1‘00’ 
0 Device code (X‘00’) 
DC XLI1‘Mask for the indicator’ z 
1 UPSI mask 
DC XL1‘Displacement to the indicator from XR1’ 
2-3 Attributes =: 
Note: The parameters passed to the assembler subroutine 
are determined by the coding done in the RPG II program. 4-5 Reserved for data management : 
For a description of this coding, see the JBM System/3 
RPG II Reference Manual, SC21-7504, IBM System /3 6-7 Address of next DTF 
Model 6 RPG II Reference Manual, SC21-7517, or IBM 
System/3 Card System RPG II Reference Manual, 8-B Reserved for data management 
SC21-7500. 
C-D Logical record address 
RPG Il LINKAGE SAMPLE PROGRAM 1 E Completion code 
In this sample program, the RPG II program links to the X‘42’ = End-of-file 
assembler language subroutine SUBRA (Figure 27). X‘41° = Controlled cancel (not 
When control is returned to the RPG II program, the recognized by Model 10 
character ‘A’ will have been moved into the field in the card system) 
RPG II program. | X‘40’ = Normal completion (not 
recognized by Model 10 
card system) 
RPG Ili LINKAGE SAMPLE PROGRAM 2 F Operation 
X‘CO’ = Get and put (model 10 
In this sample program, the RPG II program links to the card system only) 
assembler subroutine SUBRB (Figure 28). The first X‘80’ = Get 
parameters passed reference a table. The second param- X‘40’ = Put 
eters reference an indicator. The subroutine refers to X*20’ = Update 
both sets of parameters. The subroutine first tests the X‘10’ = Close 
indicator in the RPG II program. If the indicator is off, 
control is returned to the RPG II program. If the indicator 10-11 Input I/O address 
is on, a character ‘C’ is moved into the last looked up . 
entry in the table. When control is returned to the RPG II 12-13 Output I/O address 
program, it checks for a ‘C’ in the table. . 
14-15 Block length . 
I/O SUBROUTINES 16-17 Record length 
Subroutines that support input or output devices can also 18-19 Address of array DTT if array linkage 
be linked to an RPG II program. These subroutines are is used 


commonly referred to as RPG II SPECIAL subroutines. 
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The address of byte 0 of the DTF will be passed to 
the I/O subroutine in index register 2. Bytes 0-3, 6-7, 


C-D, and 10-17 are filled in by RPG II at compile time. 


Byte E, completion code, is inserted by the I/O sub- 
routine when control is returned to RPG II. Byte F, 
the operation byte, is inserted at object time. The 
information in bytes 0 and 4-B must be available, 
unchanged at close time, for data management. 


The DTT (define-the-table) is used for array linkage. 


DTT format: 

Bytes Description 

0-1 Address of rightmost byte of the first 
element of the array. 

2-3 Address of rightmost byte of the last 
element of the array. 

4-5 RPG last LOKUP element. 

6-7 Length of array element. 


2. | TheI/O subroutine must save and restore the registers 
altered in the routine. Control should be returned to 
the address in the address recall register (ARR). 


Note: The combined get and put operation code, X‘CO’, is 
utilized by the System/3 Model 10 Card System only. The 
System/3 Model 10 Disk System, System/3 Model 12, and 
System/3 Model 15 use alternate get and put operations to 


accommodate combined files. When coding an I/O subroutine 
to be used on either system, be certain to consider this fact. 


When an input operation is done, the I/O subroutine must 
move the address of the physical buffer currently being 


used to the logical buffer address location in the DTF (bytes 


C-D). In the Model 10 Card System, address bytes 10-11 
will be the same as bytes C-D (one physical buffer). 


When an output operation is requested, the I/O subroutine 
must move the data from the logical buffer (address in 
bytes C-D of the DTF) to the physical buffer (address 

in bytes 12-13 of the DTF). The two addresses are the 
same in the Model 10 Card System. Bytes 0-B are unused 
in the Model 10 Card System. 


The I/O subroutine must do its own open when the first 
call to it is issued. It must also do its own close to the 
file on a close call. 


If a dual I/O is requested, the second area will be immediately 
behind the first (Model 10 Disk System, Model 12, and Model 
15 only). 


The I/O subroutine cannot be overlaid in the Model 10 Disk 
System, Model 12, and Model 15. 


Sequential processing only is supported. 


When an I/O subroutine issues a halt, three halts should be 
displayed as follows: 


1. The first halt issued should be the FF halt reserved 
by RPG II for SPECIAL I/O subroutine usage. 


2. The second halt should be the last two digits of the 
subroutine name. 


3. The third halt may be any valid halt that can be 
displayed. 
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Control passed to SUBRA 
by RPG II! program 


RPG If Program 


IBM System/3 Assembier Coding Form 
IBM 


ener | 
ymbolic representation of code iccniiaees gilcvieon 
generated by the RPG II compiler: STATEweNT 
a PR 2 eee 33 20 28 29 WD 31 32 33 34 BH 36 37 38 39 4 41 42 43 44 H 4G aie biG Gs Sy Snan, S6'GAS ba tO EO oT Gk Gk Ob eT au 104 72 73 74 7576 77 78 79 80 81 82 83 84 85 
Scare ie Fe pase samp a TTT TTT rere 
SUBRA JERE RRR ER ERR RER ERR HRGEREGRE SUBROUTINE] ITO LI/Wik! Iria [Disk] Siysiriem! IRipic] iit 
1L1'0° mT TT BVAMASUOUOTOGUERGUGUGRRORY/<2° 471-7 -SOQAGMNMSBRAROUAMITOAUIGOUGIGD 
AL2 (HERE) SIUBRA | START Wt BEE EAGMRERTERR ERR RR RED ER Ra SERRE AREER ORR T Raa 
PLT SH tT eT TT TT tit TTT BAMEL PARAMETER) lAppPielsisl | titi ttt i i tT TTT TT 
Tit TT TAT TT omstle [TTT TT TTT TTT TT TTT TTT Tice pen] PAS] PaRiamerrerR [TTT TT TTT TTT 
RRRRHRECGHRAD: 2: MSMR SHRBUSMRBUOERBOBRRSES? 3027. OMRAAAA AGERE ESTO 
LiL T Sir SAMs TTT TT TTT TT TTT TT baAMwe PR TTT PET 
Ger CALLE CT ee eerie pores PCE 
ETT eT TT ET ee lei ap pmeisis| | ttt tT tT 
PTI tT T miviel tt Dik FEE EEHECH HHH LR ROO HEH Hae 
A et tt tt ts ORE bP | ERBCRRO RAD AE EEE 
RET | TB a erie ETT 
Cons! | [fod | | | eset TTT TTT TTT TT TT TTT eT 
EHAORHE 2) RRRRERRRA ERR RRE TR AREER ARTA R RAE AR REA AAR ERR ERE DEERE RENTER AAR eRe RARE Ranes 
Se de eee ee ee ee EP TEI TU RAST OTST sea vO elena dona bale FTAs TT frase ENO TEI TAI Je 
PRMBES TAREE SERRE SERRA TRA ARBRE PIERRE IESE RATA REA RO ESE ARR EA RAEN AMAR ERR LAER ER SH ERE 


Control returned to 
first byte after 
parameters 


$ j es eases FES as Se a Cs a He Ga (es Cee, DC GS SP 
Re ee i oe ee Oc 
ae a ee es 
| ae ee ae Se Oa ee Sse eee 
ae ee eas 
1 ae es aaa ae eee eee 
BE ee ee he 8 
BD ee a ee ee eee te 
a te z 
Sh el see tl el oe 
Bet re 
Tig TPP prep ep at aaa 
CN > BRS Gs as Oe Oa i sa 
cj (7 DS GR HAG SS SES QS >< GR fd RRS PRS ES Se | 
gC a GA DR GR SSC Ha) Wa a GS Gs eG a Hs We 
A A A HS 


femme J [J] |_| [= 


Boca 2 Pceeeeeeees, 


a 
52 
53 
¥ 
iI 


: 
g 
3 
3 
i 
i 
Z 


el We Ky nln ae iO sion TT Tt le 
| SS SEE CT AE ARG RN AY SP CD FRR sieeve SRT CS ae Me Me LR GaN Ha Ue He a He 
) Se CA A (SE eC a a dD Ces dP a 
AE Gel EAT SUR Ga a Ra) Co A Di Un RL CR a a Se Hes 
r aae BRS (ee (ea De Pea Dae See a a(S Ke ee 
eh 
|, Re SR RG MS RE SE (ee a es He ee a 
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Figure 28. Assembler Language Subroutine (SUBRB) for Sample Program |2 
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LIBRARY DECK GENERATOR PROGRAM (MODEL 10 
ONLY) 


The System/3 Model 10 Card System user can write assem- 
bler language subroutines to be used as SPECIAL or EXIT 
routines in an RPG II program. These assembler routines, 
however, cannot be inserted directly into the RPG II 
compiler. The assembler language subroutine must 

first be assembled by the System/3 Model 10 Disk System 
Basic Assembler and then translated by the Library Deck 
Generator (LDG) program before it can be placed in the 
RPG II compiler. 


The entire operation, from writing an assembler subroutine 
to selection of that subroutine by the IBM System/3 Model 
10 Card System RPG H compiler is outlined as follows: 


1. | The assembler subroutine is written by the programmer. 


If standard control cards supplied by the LDG program 
are not being used, the programmer must also code 
control cards for the subroutine. 


2. The assembler subroutine is assembled on the 
System/3 Model 10 Disk System by the Basic 
Assembler. 


3. The LDG program is read into System/3 Model 10 
Disk System storage. The *** parameter card, 
assembler subroutine object deck, and blank cards 
are placed in the MFCU. 


4. The LDG program produces a deck of cards, con- 
taining the subroutine, which can be placed in the 
RPG II compiler. The deck produced by the LDG 
program contains the following: 


Header card 
Control cards 
Text 

Q-card 

End card 


5. The deck produced by the LDG program may now 
be placed in the RPG II compiler deck. When an 
RPG II program is compiled, this subroutine will be 
selected, when required, just as any other compiler 
subroutine. 


The following material describes the information 

needed to use an assembler language subroutine in an 
RPG II program. This material is divided into four major 
sections: 


Writing the assembler language program 
Running the LDG program 

Output of the LDG program 

Example of a SPECIAL subroutine 


716 


Writing the Assembler Language Program 


The following information must be considered when the 
assembler language program is written. 


Title Instruction 


The name field of the TITLE instruction must contain 
OOGEB in columns 1-5. 


Control Cards 


Control cards are needed for every assembler language sub- 
routine. Control cards contain code, executed during 
compile time, which determines whether the subroutine 
should be included as part of the program being compiled. 
Library routines are selected only when the execution of a 
control card determines they are needed. In addition, 
control cards are needed to ensure that the entry point for 
the subroutine is placed in the proper location in core for 
the RPG II compiler to find and use it. 


There are two ways to get the control cards you need. In 
some cases, you will need to code them yourself; in others 
standard control cards are supplied by the LDG program. 
If your subroutine is to be used as a normal SPECIAL or 
EXIT routine, the LDG program will supply three control 
cards. See Figure 29 for samples of these. When these 
control cards are provided, a SPECIAL routine is selected 
if bytes 12-13 of the file description compression matches 
the identification characters of the routine, and if the 
SPECIAL device code B‘Oxxx1010’ is present in byte 16 
of the same file description compression. EXIT routines 
are selected if the identifier in the library routine is the 
same as an entry in the symbol table (bytes 3-4) and if 
byte 2 of the same entry contains bit configuration 
11100000. When these decks are selected, the address of 
the entry point of associated object code is placed in the 
symbol table entry, bytes 3-4 for an EXIT reference and/or 
bytes 8-9 of the file description compression for a SPECIAL 
reference. 


You must code control cards for your subroutine when: 
@ The subroutine is not a SPECIAL or EXIT routine. 


@ The subroutine needs a function not provided by the 
standard control cards. 


The following paragraphs describe several compiler resident 
routines which can be used by programmer coded control 
cards. 


Coding Control Cards 


There are three types of control cards each identified by 
a special character in column 1. Each type performs a 
different function: 


® Cards with a J in column 1 (J-cards) are usually used to 
control the selection of a routine for an object program. 
They also place the routine entry address in compile 
time storage for use by the RPG II compiler. 


@ Cards with a K in column 1 (K-cards) are used only 
when one routine from a set of related routines is to be 
used in any job. A J card will determine if any of these 
routines are needed and if so will start the scan for K 
cards which in turn control selection of the proper 
routine. 


® Cards with an Lin column 1 (L-cards) are used to pass 
information from RPG II compile time core to a sub- 
routine or vice versa. They are executed only if the 
deck in which they appear has been selected for use with 
the current program. 


Control card identification characters must be defined for 
assembly at X‘0000’ and are placed in column 1 of control 
cards. The only allowable characters are J, K, L, and blank. 
There should be one non-blank control card identifier 
character for each block of code for a control card. The _ 
blank is used as a delimiter between control card strings. 


For example, DC bb} CLIOJTKLLYLELYL’ shows identi- 
fiers for seven control cards and four control card strings. 
The first is a 4-card string with identifiers ‘JKLL’ used. 
The others are single card strings, each of which has an 
‘L’ identification. 


LDG identifies the control cards and assigns one control 
card identification character to each one. The control 

card strings are merged with the text cards for the routine 
functional code in the following manner. The first control 
card string is merged in front of the text, and one addition- 
al control card string is merged into the text cards where 
there is a break in the text caused by a DS or an ORG which 
changes the location counter. 


Each control card must contain executable code. Control 

cards are coded in the order needed for the purposes de- 

scribed above. Each must begin at X‘0017’; therefore, an 
ORG to 23 or X‘0017’ must precede the code for each card. 


Your control cards must contain instructions for calculating 
the address at which your subroutine will be loaded. To 
calculate the true entry address, use the current relocation 
factor described here. 
Label Address Function 
RELOCF X‘030C’ to 
X‘030D’ 


Contains the current 
relocation factor. Is 
modified when the end 
card of the selected deck 
is encountered or JIEAA]1 
is entered. 


See Figure 29, Part 1, found at the end of this section, for 
an example of the use of the current relocation factor. 


The following paragraphs describe several compiler resident 
routines which can be used by programmer coded control 
cards. 


J-Card Scan Routine reads the library deck until a J-card is 
encountered. The routine has three entry points. 
Label 


Address Function 


J3EAA1 X‘031A’ Scans for J-card. When 
one is found, control is 
passed to that card. All 
other cards are ignored. 
J2EAA1 X‘3014 Clears X‘OOEO’ to X‘OOFF’ 
and X‘007C’ to X‘007F’ 
to hex zeroes then scans 
for J-card as JZBEAAI. 
JIEAA1l X‘030E’ Resets the relocation 
factor to the next object 
address and performs as 


J2EAA1. 


K-Card Scan Routine has one entry point. 


Label Entry Point Function 


KIEABI X‘0320’ Scans for K-card. When 
one is found, control is 
passed to that card. All 
other cards except J- 
cards are ignored. Ifa 
J-card is found, a halt 


‘40’ is executed. 


Appendix D. Assembler Language Subroutine to RPG II Linkage 77 


Relocate Deck Routine has one entry point. 


Label Entry Point Function 


X‘032C’ Initiates or continues 
relocation of the current 
deck. Will recognize and 
execute L-cards and re- 


R1EAC1 


organize and print Q-cards. 


Exits to JIEAA1 when 
end card is encountered. 


Scan File Description Compressions Routine has two entry 
points. This routine steps through the file description com- 
pressions. It returns a pointer to the next compression in 
register 2. If the condition code is high, the pointer is 
valid. Any other condition indicates the pointer is invalid. 


Label Entry Point Function 

FIEAEI X‘0338’ Initializes pointer to first 
file description compres- 
sion and sets condition 
code. 

F2EAE]1 X‘033E’ Points register 2 to the 


next compression and 
sets the condition code. 
(Register 2 need not be 
pointing to the last 
compression.) 


Scan Extension Compressions Routine has two entry 
points and steps through the extension compressions and 
returns a pointer to the next compression in register 2. A 
high condition code indicates a valid pointer. Any other 
condition code indicates an invalid (undefined) pointer. 


Label Entry Point Function 

E1EAF1 X‘0344’ Initializes pointer to first 
extension compression 
and sets condition code. 

E2EAF1 X‘034A’ Points register 2 to the 


next compression and 

sets condition code. 
(Register 2 need not 

point to last compression.) 
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Text Handling Routine builds up full text card in storage 


and, when a card is full, punches that card. The area from 


X‘0080’ to X‘OODF’ is the location of the punch buffer 


and this must be considered when using this area of core. 


Label Entry Point Function 


BKEAH1  X‘0350’ Forces any partial text 


card to be punched. 
STXLA1 X‘035C’ Accepts a string of text to 
be added to the current 
text immediately following 
the last text passed. Re- 
quires a l-byte parameter 
following the branch. 
Parameter containsa 
displacement relative to 
register 1 to the length 
byte of the text being 
passed. The text string 
should be preceded by 
this length byte which 
contains the length of 
text. 


Wait On Punch Busy Routine: 


Label Entry Point Function 


WTPUNI X‘0362’ Returns when the previous 
punch operation has been 
successfully completed 


and the buffer is not busy. 


Title of Subroutine 


The title of the routine must be a defined constant to be 
loaded starting at X°0000’. It must be equal to or less 


than 80 characters in length. This title is printed on the 
RPG II compiler listing with the address of the entry point 
of the routine if it is selected at compile time. 


Routine Functional Code An OPTIONS card must be used to successfully assemble 
the subroutine. 

This code must be assembled starting at X‘0000’. The 

code must contain a break in continuity (a DS or an 

ORG which changes the location counter value) where 

control cards are to be inserted. 


Running the LDG Program 


The following paragraphs describe a special parameter card 


Assembling the Subroutine that must be used with the assembler deck, the OCL required 
to load the LDG program, and error conditions that may re- 
The assembler subroutine is assembled by the Model 10 sult. 


7 disk system basic assembler. The OCL considerations for 
assembly are discussed in Section II: Programmer’s 
Guide under the headings OPTIONS Statement and 

OCL Statements For Assembler. 


Appendix D. Assembler Language Subroutine to RPG II Linkage 79 


Library Deck Generator Parameter Card (***) 


A parameter card must precede the assembler generated 
object deck to provide the LDG program with information 
regarding output. Entries for the parameter card are as 


follows: 


Columns 


1-3 


4-9 


10 


11 


12 


13 


14 


15-16 


17-18 


19 


20 


21-96 


80 


Entry 


xe 


SUBRxx 


, (comma) 


S 


, (comma) 


D 


MM 

O (zero) 

1 

, (comma) 


Subroutine 
title 


Explanation 

Three asterisks identify a parameter card. 

These characters identify the subroutine. Substitute any two characters 

for xx — the second may be blank, but the first must not. Note that the 

LDG program will not diagnose an error in these columns. 

Required. 

Standard control cards will be provided by the LDG program for the subroutine 
identified by the characters found in columns 8-9 of this parameter card. The 
title, also extracted from this parameter card, will be assigned to the subroutine. 
The entry point of the routine must be the first byte of the routine. GEB will be 
forced as module identifier. 

Non-standard control cards will be supplied by. the user as will identification 
characters and title. (The format of this material may be found in Figure 29.) 
If N is specified, the title specified in this parameter card is ignored. Thus, if 

N is used, columns 21-96 may be left blank. 

Required. 

Default values for component version, modification level, and indication of 
complete or partial deck replacement for header card are provided by the LDG 
program. 
Default values are not assumed. The user must provide them in columns 15-19. 
Required if column 11 contains an S or column 13 a G. 

Two numbers indicating the component version. 

Two numbers indicating modification level. 

Partial deck replacement for header card. 

Complete deck replacement for header card. 


Required only if column 13 contains a G and column 11 an S. 


if column 11 contains an N, the title is not required. If column 13 contains 
a D, the title of the subroutine must begin in column 15. 


Examples: 
IBM 
PROGRAM ; 
Proce 
STATEMENT 
Operation 

uw see er ig 16.17 18 19:00 21 22 oa a 2 28 28 29 30 31 32 33 34 % 36 37 38 39 40 

wpemstan NLT TTT ETT ee 
pales LE tit. 


User will supply all control cards, identifying characters, 
and title for subroutine ‘Ap’. 


PROGRAM 


PROGRAMMER 


STATEMENT 


and 


Name Operation Opera’ 
ae Cen ee 15 16 17 18 19 20 21 22 23 24 25 
PPHSDER EL Bp SPEC 


Library Deck Generator will supply standard control cards 
which will be used for selection of subroutine BB. The title 
will be printed on the 4th tier of the cards and on the com- 
piler listing. The values given in columns 15-19 will be used 
on the header card. The component version (02) will go in 
columns 59-60 of the header card, the modification level 
(00) will go in columns 31-32, and deck replacement indi- 
cator (1) will be placed in column 85. 


Loading the LDG Program 


IBM 

[rocemee 
Pe Bae ere eee 26 27 28 29 303 33 34 H 36 37 38 39 40 
7] Log PRINTER LITT TILT 

/V/| LOAD! BASLIDG, RUT TTT tT TTT TTT TT 

7/2070 SAO 

KMASUBR | (PARIAMETIER! CARD)! | [itt tt ttt tt 

GRRE RERECRERRLARRRERN TORRE REE aR RS 

ERE RM RRAIESRAERRR RATER REL RRR ERR Eee 

PRSRRMERMRR REE EAR EERE ARR CER REREeeE 

|{ T ANSSIENIBLIER DIBJIECT PROGRAM Itt Tt Tt TT 

ig i ee oe ee ee CAC als 

HERE ERS R aR SPREE RE Ree RARE LEE 

Ac ee ERS ES PRE RERER SE RSR RS RERA eee 

HRESRRLAL SERRE ARLES TAREE ENE TRESTLE aa 

PERRER ERE R ASR REECE ESRC ARR 

SEI STS et eat eta ed tp eS CIS 
CERREPURSERLER ERE RR ETO REE RRR RRE RED REE 
BRRERR RRR ER EER ERE RECO E ARERR SERRE RAE 
EAL ileal le POR st seis ll Isle) ius lida 
SOS SE etd telop: PP hie a peed 


Error Conditions 


Several errors are considered to be terminal. If terminal 

errors occur, the card image is printed, the error message 
is printed, the deck is run through to the ‘/*’ card, and a 
C halt is displayed. When this halt is reset, processing is 

discontinued by the end-of-job routine. 


If the error is not terminal, the card image is printed, an 
error message is printed, and a C halt is displayed. The 
program is restartable, however, and processing will 
continue. 


Following is a list of error messages generated by this 
phase. An asterisk (*) preceding the number indicates 
which are warning errors. 


1. Number of control cards generated incorrect. 


2. Length of control card text, too great for one card. 


3. Card sequence incorrect. 

Title too long or the first text is contiguous. 

. First control card character may not be blank. 
Not enough breaks for control strings. 

More breaks than control strings. 

. Last text not at highest address expected. 
Improper card in deck. 

End card out of sequence. 

Invalid control card identification. 

. First object card must be an ESL card. 

. Insufficient core for control card storage. 

. Invalid entries on *** control card. 

. /* card or *** card out of sequence. 

*16. GEB not used as module identifier. 

. *** card required before object deck. 


. Too many control card identifiers specified or 
invalid sequence. 
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Output of the LDG Program 


The header card in stacker 2 should be placed in front of 
the remainder of the output deck in stacker 3. Insert the 
subroutine deck in the RPG II Compiler deck using the 


Program Maintenance Program. The subroutine deck must 


have GEB in columns 91-93. 


OOGEB ANY TITLE DESIRED MAY BE USED 


ERR LOC OBJECT CODE ADOR STMT 


Ne 
SNOW PWN RK OVANO UNS WH 


0000 28 
oool 29 
0002 30 
0008 31 


0300 33 
O30E 34 


O31A 36 
032C 38 
0338 40 


033€ 42 


028C 49 
O2E6 51 


O2EA 53 


SOURCE STATEMENT 


Example 


Figure 29 is an example of a SPECIAL subroutine. This 
sample program can be used as a base for any SPECIAL or 


EXIT subroutine. The only changes required are modifying 


the subroutine identification characters, entry point, label, 


and routine title. Areas of change are outlined in the sample 


listing. Control cards are created for you. 


SEKKESKSKSEEKKESSESKEKSEKE SKE SESS SESKKSESKKKKSSESKEEK SHE KEKKSEKSEAKSEESEKEKKES 


THIS IS A SAMPLE CODING FOR THE CONTROL CARDS FOR A *SPECIAL® 


DEVICE REFERENCED IN AN RPG PROGRAM. ALL LABELS WHICH WILL 


NEED TO BE MODIFIED FOR A PARTICULAR PROGRAM HAVE LABELS 


THESE CONTROL CARDS MAY BE USED FOR ANY SPECIAL OR EXIT 


* 
* 
* 
* 
* 
* 
* 
* 
*#"*. THIS DECK IS IN THE FORMAT * 
* 
* 
* 
* 
* 
* 
* 
* 


* 

* 

* 

* 

* 

* 

* 

*x 

* STARTING WITH THE CHARACTER 
. 

+ REQUIRED BY THE LIBRARY DECK GENERATOR. 
* 

* 

x 

* SUBROUTINE. 

* 

* 


SREKKSEKESKESETKESKESKESEESKEKSKKKSEEKKESE ETEK KKSEEKKKAKKEKKKEKEKEKESKKSEEKESEEE 


& 
* 
* 
* 
* 
* 
* 


START 
XR1 
XR2 
ARR 


RELOCF 
JLEAAL 
* 


J3EAAL 
* 


RIEACL 
* 


FLEAEL 
* 


F2EAE1 


e+ & He & 


COMMON 
* 
ENDCOR 
* 


ENDOST 
* 


STANDARD LABELS AND LABELS USED TO LINK TO THE LIBRARY 


STA 
EQU 
EQU 
EQU 


EQU 
EQU 


EQU 
EQU 
EQU 


EQU 


EQU 
EQU 


EQU 


SKEKSSEKEEKEKEESESCKEKEAEKSKESKEKKSEKESEESKKEKESKSKSEKKKSEKRE KEKE KEKE HEKKESE 


SELECT ROUTINE AND RPG COMPILER COMMUNICATIONS AREA 


SEKRESKKKSKSE KEKE KEEKSEEKSE SK SKE KKK SSE SKSEKSKCEKEKSESEEKEKERKKEKKEKECERKKE EE 


RT O 
l 
2 
8 


START#X*030D* 
START#X*O30E * 


START#+X*O3LA* 
START#X*O32C * 
START+X*0338° 


START+#X*O33E* 


START+#+X*028C* 
COMMON+90 


COMMON+94 


Figure 29 (Part 1 of 4). Sample Coding for SPECIAL Device 
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eee Dee De 


PROGRAM SHOULD BE STARTED AT O 

STANDARD LABEL FOR INDEX REGISTER 1 

STANDARD LABEL FOR INDEX REGISTER 2 
ADDRESS RECALL REG 


RELOCATION FACTOR FOR CURRENT DECK 
ENTRY POINT TO RESET RELOCATION 
FACTOR AND SCAN TO NEXT *J* CARD 
ENTRY TO SCAN TO NEXT *J* CARD WITH- 
- OUT RESETTING RELOCATION FACTOR 
ENTRY POINT TO INITIATE OR CONTINUE 
RELOCATION OF THIS DECK 
ENTRY POINT TO INITIATE THE SCAN OF 
THE FILE DESCRIPTION COMPRESSIONS 
ENTRY POINT TO CONTINUE FILE DISC. 
COMP. SCAN 
BOTH OF THE PREVIOUS ENTRIES” 
RETURN A POINTER IN XR2 AND A 
CONDETION CODE *HIGH* IF THAT 
POINTER IS VALID 


START OF THE RPG COMPILER 
COMMUNICATIONS AREA 

HOLDS LAST ADDRESS IN MEMORY -FIRST 
BYTE USED FOR SYMBOL TABLE - 

HOLDS LAST ADORESS USED FOR SYMBOL 
TABLE. 


00020000 
00030000 
00040000 
00050000 
00060000 
00070000 
00080000 
00090000 
00100000 
00110000 
00120000 
00130000 
00140000 
00150000 
00160000 
00170000 
00180000 


00200000 
00210000 
00220000 
00230000 
00240000 
00250000 
00260000 


00280000 
00290000 
00300000 
00310000 


00330000 
00340000 
00350000 
00360000 
00370000 
00380000 
00390000 
00400000 
00410000 
00420000 
00430000 
00440000 
00450000 
00460000 
00470000 


00490000 
00500000 
00510000 
00520000 
00530000 
00540000 


- 


ERR LOC OBJECT CODE 


ADOR STMT 


SOURCE STATEMENT 


Figure 29 (Part 2 of 4). Sample Coding for SPECIAL Device 


replacing these # signs with 
identifying characters. 


SG EF EKESKESESRERSSERSESEESESERESES SS SESE SEES SESE SEER SESSASSAESESSESESSESRES & 00560000 

57 * * 00570000 

58 * THE FOLLOWING IS A SKELETON FOR A FILE DESCRIPTION * 00580000 

59 * * 00590000 

60 * COMPRESSION * 00600000 

61 * * 00610000 

62 F EHKESKERESESERESEREEE SES ESESES ESS CESSES ESESAESEESSE SESE ESE SESEEESE ¢ 00620000 

0000 0000 64 FCFG OS cul FLAG BYTE FOR COMP. ALWAYS X‘FF® 00640000 

0001 0002 65 DS CL2 OUTPUT BUFFER @ 00650000 

0003 0004 66 DS Cl2 INPUT BUFFER ADDRESS 00660000 

0005 0006 67 DS CL2 PRINT BUFFER ADDRESS 00670000 

0007 0008 68 FCENT@ DS CL2 TOCS ENTRY POINT ADDRESS 00680000 

0009 0009 69 OS cul FLAG BYTE 00690000 

Q00A 000A 70 OS cul FLAG BYTE 00700000 

0008 oooc 71 FCIONT DS CL2 HOLDS IDENT FOR SPECIAL ROUTINE 00710000 

0000 OOOE 72 OS Cl2 EXTERNAL INDICATOR ASSIGNMENT 00720000 

OOOF OOOF 73 FCDVA ODS cul DEVICE CODE B*OXXxX1010* FOR SPECIAL 00730000 

0010 0010 74 OS cul BLOCKING FACTOR 00740000 

0011 ooll 75 OS CLl RECORD LENGTH 00750000 
eal 

2 TT © SESKSESEKSERE SHES ESESESES ESSE ESTE SESKESESEEKE SHES SSESCESESELESESESSSESES & 00770000 

a 78 * * 00780000 

79 * THE FOLLOWING IS A SKELETON FOR A SYMBOL TABLE ENTRY * 00790000 

80 * * 00800000 

Bl HF SHKHESSEESEESESESEEEEESESEETES SESEERESESESESEEECSEESRSESESESEREEESED & 00810000 

: 0012 0012 83 STLEN DS cLl LENGTH FOR FIELD ENTRY 00830000 

0013 0013 84 STFLAG DS cil FLAG BYTE SPECIAL NEEDS B° . 00840000 

0014 0015 85 STIDNT DS CL2 IDENT FOR SPECIAL C*##* HOLDS ENTRY 00850000 

86 * POINT AFTER SELECTION 00860000 

BB F CHESRESSERAAESESERESESESERESESESSEESESSEEES EES ESESERESEHESESEEESSESS & 00880000 

89 * * 00890000 

90 * THE FOLLOWING OC CONTAINS THE ID*S FOR THE CONTROL CARDS * 00900000 

91 * * 00910000 

92 F SHSKESESERESEEEESSEKESEEERESEEERESESESRE SHES SEESSESE SESE LEHR EEEESESE * 00920000 

0000 94 ORG 0 00940000 

0000 D10101 0002 95 oc CL3*JJJ° THREE CONTROL CARDS ALL WITH IDENT 00950000 

96 * *J* AND INSERTED IN FRONT OF THE 00960000 

97 * DECK 00970000 

QF F SHSKESEASESSSSASESESE SESS SHERESEE EESES ESSE SELESEESSESESSEESERSEHESESSEEES & 00990000 

100 * * 01000000 

101 * THIS CONTROL CARD SCANS THE *F* COMPRESSIONS FOR REFERENCE TO * 01010000 

102 * * 01020000 

103 * °##* IF FOUND IT SETS THE FLAG BYTE AT X*O007B* TO X*FF*. * 01030000 

104 * * 01040000 

105 * IF EITHER FOUND OR NOT FOUND [T STARTS THE SCAN FOR THE NEXT * 01050000 

106 * * 01060000 

107 * CONTROL CARD. * 01070000 

108 * * 01080000 

109 F SRSSSSRESSEESE SESE SESE SESE SESE EHEERSESEREEECESES ESSE SESERESSESESSE SEEDS & 01090000 

0017 111 ORG xX*0017° REQUIRED FOR EACH CONTROL CARD 01110000 

0078 112 FLG EQU) =START#X*7B° AREA FROM X*7B* TO X*FF* IS 01120000 

113 * USABLE FOR WORKING STORAGE 01130000 

114 * THIS BYTE USED TO FLAG IF 01140000 

115 * ROUTINE IS REFERENCED ON ‘F* 01150000 

116 * SPECIFICATIONS 01160000 

0000 117 USING START,+XR1 VALID AT ENTRY TO ANY CTL. CARD 01170000 

0017 7C 00 78 118 MVI FLG(eXR1)9X* 00° INITIALIZE FLAG FOR NOT USED 01180000 

119 * ON FILE DESCRIPTION SPECS. 01190000 

OOLA 4E OL 43 0300 120 ALC = #ENTRY(25XR1) »RELOCF CALCULATE TRUE ENTRY ADDRESS 01200000 

OO1F CO 87 0338 121 B FLEAEL INITIATE SCAN OF °F*® COMPS. 01210000 

0000 122 USING FCFGeXR2 VALID UPON RETURN FROM FIEAEL 01220000 

0023 6D Ol 45 OC 123 SPCAL CLC #IDENT(2sXR1)eFCEONT(2XR2) IS THE TOENT THE RIGHT CHAR 01230000 

0027 BS OA OF 124 TBN FCDVA(,XR2),8*00001010° AND IS DEVICE CODE THAT FOR 01240000 

002A B9 85 OF 125 TBF FCDVA(,XR2)28*10000101° *SPECIAL® 01250000 

002D F2 96 O7 126 JC SPCA2»X*96° IF THIS [IS NOT THE RIGHT COMP, 01260000 

0030 7C FF 7B 128 MVI FLG(sXR1L) eX* FFE SET FLAG TO INDICATE USED ON 01280000 

129 * FILE DESCRIPTION SPECS. 01290000 

0033 9C 01 08 43 130 MVC = FCENT@(25XR2),#ENTRY(2XR1L) MOVE ENTRY ADDRESS TO THE 01300000 

131 * FILE DESCRIPTION COMP. 01310000 

0037 CO 87 033E 132 SPCA2 8B F2EAE1 ELSE SCAN TO NEXT COMP 01320000 

0038 DO 84 23 133 BH SPCA1L(eXR1) IF POINTER STILL OK LOOP 01330000 

OO3E CO 87 O31A 134 B J3EAA1L GET NEXT *J* CARD 01340000 

135 * THES ENTRY WILL NOT CLEAR THE 01350000 

136 * BYTE AT FLG. 01360000 

0042 0000 0043 138 #ENTRY OC AL2(SUBR##) ENTRY POINT ADOR. TO BE RELOCAT 01380000 

0044 7878 0045 139 #IDENT DC CL2*#e* TWO CHARACTER IDENT FOR ROUTINE 01390000 

0002 141 DROP xR2 Identify your subroutines by 01410000 
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ERR LOC OBJECT CODE 


OOL7 
0017 


oo1c 
0020 


0024 


0027 
002A 
OO2E 


0017 
0017 
oo1c 
0021 
0025 
002A 
002D 


0031 
0035 
0038 
003B 
OO3F 
0042 
0045 


0048 
004C 


0050 
0052 


0054 


FFFC 


0070 


70 O2ZEA 


FFFC 
02E6 


0011 
02 


04 
7D 04 


O31A 
0002 


ooLll 


0055 


ADDR STMT 


143 
144 
145 


206 
207 


SOURCE STATEMENT 


* 
* 
* 
* 
x 
* 
* 
* 
* 


NDa 


SPCBO 


* 
* 
* 
* 
* 
* 
* 
* 


SPCB1 


SPCB2 


SPCB3 
* 


SPCB4 


#ENT 
#ION 


STSTEP 
* 


KKESERESEEKKEEKKERE SEE TEESE CEKKKESKEKSKESEEE SEK SSSCKAESSKSEKEKSSEKKEKRECES 


THIS CONTROL CARD DETERMINES THE END ADDRESS TO BE USED 


CARD. 


EQU 


JT 
MVC 
B 
DROP 


CALCULATIONS. TF REFERENCED THERE OR ON *F® SPECS RELOCATION 


START+X*7D!* 


x*OO17! 
END@(25XR1),ENDST 


X*FFFC® »XR2 
ENOC OR», XR2 


STLEN-1,XR2 
STFLAG( gXR2),X*°18* 


SPCBO 
END@(2,XR1L)>STIDONT( 2 XR2) 
J3EAAL 

XR2 


SKEKEESKERKSSKKESKERTESSSESASR ERSTE ESSE SAAS SERS SEES ESESESERE RESET EESE 
THIS CONTROL CARD CHECKS THE SYMBOL TABLE FOR REFERENCES FROM 


OF THE DECK IS INITIATED) 


oc 


DOC 


SKEKKSEKSESREKKESCKAKKSSHSSEKEKEKEKSEKSSSKSEKKEEKSKESKS ES ETSEKKESRRKSEKKKEKKEEKEKE 


x*0017* 
#ENT(2,XR1),RELOCF 
SPCB24+3(2—eXR1).ENDCOR 
SPCB243(2,XR1L) eSTSTEP( »XR1) 
$PCB8243(2,XR1),ENDST 
SPCB3 

#-*_,XR2 

STLEN-1,XR2 
STIONT(2¢XR2) e#ITONC XR1) 
STFLAG(sXR2) 48°11 100000° 
SPCB1(9XR1L)sX*96* 
STIDNT(29XR2), MENT, RRL) 
STFLAG( »XR2) ,B*00000001 * 
SPCB4 

FLG(sXR1L) eX* FFP 


JLEAAL 
RLEACL 


AL2(SUBR##) 
CL2*##* 


IL2'-48 


your subroutine. 


Figure 29 (Part 3 of 4). Sample Coding for SPECIAL Device 
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Replace these # signs with 
the characters identifying 


i 
* 
* 
* 
IN THE SEARCH OF THE SYMBOL TABLE DONE BY THE NEXT CONTROL * 
* 
* 
* 
* 


EKESKRKSE SELES SCEKEKKEKSERESKKESEKKEKSEKERESEKKSESSEKCEKEEES KEKRSECEKSEKEKEEKESEE 


THIS TWO BYTE AREA WILL HOLD 
THE AODRESS TO CONTROL THE 
SYMBOL TABLE SCAN. IT WILL BE 
THE ADORESS OF THE END OF THE 
SYMBOL TABLE OR THE FIRST 
TABLE ADORESS TABLE POINTER 
WHICH EVER IS HIGHEST 


INITIALIZE END ADDRESS TO END 
OF SYMBOL TABLE 

INITIALIZE XR2 TO NEGATIVE 4 

POINT XR2 TO FIRST ENTRY IN 
SYMBOL TABLE 


TEST IF ENTRY FOR TABLE OR 
ARRAY 

IF NEITHER --> JUMP 

ELSE RESET THE END ADDRESS 

GO GET NEXT CARD 


* 
* 
* 
* 
* 
* 
* 
* 


START OF CONTROL CARD TEXT 
CALCULATE ENTRY ADDRESS 
INITIALZE LA BELOW 

STEP BACK TO NEXT ENTRY 

CHECK FOR END OF SYMBOL TABLE 
IF BEYOND END -—-> JUMP 

POINT TO ENTRY 


IS THE IDENT CORRECT AND 

THE ENTRY FOR AN EXIT LABEL 
IF NOT CORRECT ENTRY --> LOOP 
ELSE MOVE IN ENTRY POINT 

SET FLAG FOR ROUTINE FOUND 
START RELOCATION OF ROUTENE 
WAS ROUTINE REFERENCED FROM 

FILE DESCRIPTION SPECS. ? . 

NO — UNUSED SCAN TO NEXT DECK 
YES —- USED AS SPECIAL RELOCATE 


ENTRY POINT FOR RELOCATING 
IDENTIFICATION 


NEGATIVE LENGTH OF SYMBOL 
TABLE ENTRY 


01430000 
01440000 
01450000 
01460000 
01470000 
01480000 
01490000 
01500000 
01510000 


01530000 
01540000 
01550000 
01560000 
01570000 
01580000 
01590000 


01610000 
01620000 
01630000 
01640000 
01650000 
01660000 
01670000 
01680000 
01690000 
01700000 
01710000 
01720000 
01730000 


01750000 
01760000 
01770000 
01780000 
01790000 
01800000 
01810000 
01820000 


01840000 
01850000 
01860000 
01870000 
01880000 
01890000 
01900000 
01910000 
01920000 
01930000 
01940000 
01950000 
01960000 
01970000 
01980000 
01990000 
02000000 
02010000 


02030000 
02040000 


02060000 
02070000 


ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT 


209 K& ERSEKHKSKKKESKSSSESSKKESESHERESCESSERETEESSSECSESSCSKEKRSERSEKESREKKEKAESSEKEREES & 02090000 
210 * * 02100000 
211 * THE FOLLOWING DC CONTAINS THE PROGRAM TITLE TO BE PRINTED * 02110000 
212 * * 02120000 
213 * ON THE RPG LISTING AND SHOULO BE CHANGED TO REFLECT THE * 02130000 
214 * * 02140000 
215 * NAME OF THE SUBROUTINE. * 02150000 
216 * * 02160000 
Z1L7T FF SEEKER SESSEKERETKERKSESERESKSSEKESESKESSERKSEREAESKSEKSKKHSEAKKSKSESKSEKKEKSESKEREEE & 02170000 
0000 219 ORG 0 SIGNALS START OF TETLE 02190000 
0000 E2D7C5C3C9C1D340 001D 221 oc CL30*SPECEAL 1/0 ROUTINE ##* 02210000 

0008 C96106400906E4E3 221 

0010 €905C5407B8784040 221 

z 0018 404040404040 221 

Replace these # signs with 
the characters identifying 
m your subroutine. 
223 KF KEKSKKESEKKSEKREKESSHEREKEEKSESEST RES KSESKAKEKESE SHS KAKEEKESEKEKEEKAEKEKEEE & 02230000 
3 224 * * 02240000 
225 * THE FOLLOWING CODE REPRESENTS THE FUNCTIONAL CODE FOR THE * 02250000 
226 * * 02260000 
227 * USER ROUTINE. THE ABOVE CONTROL CARDS ASSUME THE ENTRY POINT * 02270000 
228 * * 02280000 
229 * IS AT SUBR##. THE ENTRY POINT IS UNIQUE TO EACH SUBROUTINE. * 02290000 
230 * * 02300000 
231 * THE ENTRY POINT IS THE LABEL ON THE ROUTINE CODE, NOT THAT * 02310000 
232 * * 02320000 
233 * ON THE START CARD. * 02330000 
234 * * 02340000 
235 KB SEKKEREESSEEKESESKEREKKEKETC AKERS SKEKKE SEKEKKSKSECKSEKSCKSEESKRHEKEKREKEKEEEEK & 02350000 
237 BK SEREKHRERKERESSESESRKARERESKEKKRAKEKS SEEKER SCEREEEKESERKECEKEKEKEETREKERKERES & 02370000 
238 * * 02380000 
239 * THE ROUTINE MUST MEET THE FOLLOWING REQUIREMENTS * 02390000 
240 * * 02400000 
241 * le WHEN ENTERED FOR INPUT OR OUTPUT (NOT EXIT) IT MUST * 02410000 
242 * ACCEPT THE STANDARD SPECIAL 1/0 LINKAGE PARAMETERS. * 02420000 
243 * * 02430000 
244 * 2. WHEN ENTERED VIA AN EXIT FROM CALCULATIONS IT MUST * 02440000 
245 * ACCEPT THE STANDARD EXIT LINKAGE AND PARAMETERS. * 02450000 
246 * * 02460000 
247 * 3. IT MUST INDICATE END OF FILE BY PROVIDING THE CORRECT * 02470000 
248 * COMPLETION CODE IN THE DTF. * 02480000 
249 * : * 02490000 
250 * 4. IF A DIFFERENT AREA IS USED FOR THE ACTUAL INPUT OR * 02500000 
251 * OUTPUT BUFFER THE DATA MUST BE MOVED TO OR FROM THE ADDRESS®* 02510000 
252 * SUPPLIED IN THE OTF. * 02520000 
253 * * 02530000 
254 KC SEREKEKSSEESEKESAKEKSEKKREKKSEE REESE KESSEKEKEREKEEKSEEAKEKERRKSKRETKESEKAAEE & 02540000 
0000 256 ORG 0 SIGNALS START OF ROUTINE TEXT 02560000 
0000 258 SUBR¥# EQU) * THIS IS THE ENTRY POINT TO THE RQUT. 02580000 
Replace these # signs with 
the characters identifying 260 *#&eeH4% ROUTINE CODE IS PLACED HERE CHEKEERRE 02600000 
= your subroutine. 
2 


0000 262 END SUBR## THIS INSURES PROPER LISTING FROM RPG 02620000 


Figure 29 (Part 4 of 4). Sample Coding for SPECIAL Device 
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Appendix E: Assembler Language Subroutine To COBOL or FORTRAN Linkage 


This section describes standard linkage conventions for use 
between modules produced by the System/3 language 
translators: COBOL, FORTRAN, and Basic Assembler. 
Programmers using standard linkage conventions are able 

to code routines in the language most appropriate to the 
function being performed, with the assurance that effective 
and permanent communication has been established. Figure 
30 illustrates the standard described on the following pages. 


¥ SAMPLE SYSTEM/3 LINKAGE -- MODULE A CALLS MODULE B 


EXTRN MODB 
@XR1 EQU X'O1' 
@XR2 EQU X'02' 


MODA START X'0000' 


* INITIALIZE XR1 AND XR2 TO TEST SAVING 
* 
L XR1,@XR1 
L XR2,@XR2 
B MODB CALL MODULE B 
DC AL2 (PLIST) 
HPL X'6F',X'6F' HALT 00 AFTER RETURN 


* PARAMETER LIST 


* 


PLIST  EQU 
DC 
DC 
DC 
DC 

* 

PARAMETERS 

* 

PARML EQU 
DC 

PARM2 EQU 
DC 

* 

* SAVE AREA 

* 

SAVA DC 

DC 

* 

XR1 DC 

XR2 DC 


* 


AL2 (SAVA) ADDRESS OF SAVE AREA 
AL2 (PARM1) ADDRESS OF FIRST PARAMETER 
AL2 (PARM2) ADDRESS OF SECOND PARAMETER 
XL1'00" 
EQU * 
CL5'FIRST' 
* 
CL6'SECOND'! 
XL1'BO' INDICATOR BYTE ~- ASSEMBLER MAIN 
CL6 '"MODE' MODULE NAME 
CL2'R1' 
CL2'R2' 
MODA 


Figure 30 (Part 1 of 2). Mlustration of Standard Linkages 
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= SAMPLE SYSTEM/3 LINKAGE -- MODULE A CALLS MODULE B 


@XR1 EQU X'O1' 
@XR2 EQU X'02' 
@ARR EQU X'08'! 
@IAR EQU x10" 
* 
ENTRY MODB 
¥ 
. MODB START X'0000' 
* 
ST SAVAR1,@XR1 SAVE CONTENTS OF XR1 
: LA SAVA,@XR1 XR1 WILL BE BASE FOR SAVE AREA 
2 USING SAVA,@XR1 
ST SAVAR2 (,@XR1) ,@XR2 SAVE CONTENTS OF XR2 
ST SAVART (,@XR1) ,@ARR SAVE CONTENTS OF ARR 
: Li SAVART(,@XR1) ,@XR2 XR2 POINTS TO ADDRESS OF PARM 
LIST 
L 1(,@XR2) ,@XR2 XR2 POINTS TO PARAMETER LIST 


ALC SAVART(,@XR1) , TWO(,@XR1) SET RETURN POINT 2 PAST ARR. 


+ 


BODY OF ROUTINE 


L SAVAR2(,@XR1) ,@XR2 RESTORE XR2 
L SAVAR1(,@XR1) ,@XR1 RESTORE XR1 
L SAVART, @IAR RETURN 
x 
* SAVE AREA 
* 
SAVA DC XL1'30' INDICATOR BYTE -- ASSEMBLER LANG 
DC CL6'MODB' MODULE NAME 
SAVAR1 DC XL2'00' CONTENTS OF XR1 ON ENTRY TO THIS 
* MODULE 
SAVAR2 DC XL2'00' CONTENTS OF XR2 ON ENTRY TO THIS 
* MODULE 
SAVART DC AL2 (00) RETURN POINT 
* 
TWO DC TZ 2" 
* 
END 


Figure 30 (Part 2 of 2). Mlustration of Standard Linkages . 
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STANDARDS 3. | When control reaches a program entry point, the 
address recall register (ARR) must point to a 2-byte 


In order to be standard, linkage must be accomplished as field containing the address of the first byte of the 

follows: | parameter list. 

1. | Each module must have a save area (Figure 31). The Basic Assembler language code to call a COBOL 
or FORTRAN subroutine would normally be as 
follows: 


Description Program 


EXTRN SUBR 
O=Not a main program = Subroutine B SUBR 


1=Main program i 
— ay ereatelD DC AL2(PARAMS) 
000=FORTRAN Subroutine RETNPT EQU 7 - 
001=COBOL Main program 
011=Basic Assembler Note that the pointer to the parameter list points 
to the left byte of the save area address. | ~ 
Reserved 
EBCDIC name, Subroutine 4. Normal return is accomplished by placing in the 
left justified Main program instruction address register (IAR) a value that is 
two larger than the contents of the ARR when the 


Value of index register 1 Subroutine program was entered. 


(XR1) at entry 


Value of index register 2 Subroutine 5. Index registers 1 and 2 (XR1 and XR2) must be 
XR2) at entry saved upon entry in the called program’s save 


ee area, and restored at exit. 
Return point in Subroutine 


calling program ; 
: 6. The address recall register need not be restored, 


Note: Main program refers to the program with the highest but the return address must be determined and 
level of control. placed in the called program’s save area. 


Figure 31. Save Area 


2. Each module that calls another module must have one 
or more parameter lists (Figure 32). 
Description 
Address of save area in this program 
Address of first parameter : 


(2N)-(2N+1) Address of Nth parameter ~ 


(2N+2) XL1‘00’ to indicate end of parameter list 


Note: The first two bytes as well as the end-of-parameter-list 
indicator (XL1‘00’) must be present in all parameter lists. If 
no parameters are to be passed, the parameter list will be only 
three bytes in length. In this case, byte 3 will be O and the 
called program will indicate a parameter list length of 2. 


Note: Addresses in parameter lists refer to the first byte 
(byte with the lowest address) of the item. 


Figure 32. Parameter List 
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Along with the Basic Assembler, you will receive a sample 


program. By executing the sample program you can verify 


that the Basic Assembler is operational. 


MODEL 10 AND MODEL 12 SAMPLE PROGRAM 


This section describes the sample program and explains the 
operating procedures necessary for executing it. General 
operating procedures for the Basic Assembler are found in 
the JBM System/3 Model 10 Disk System Operator's Guide, 
GC21-7508, IBM System/3 Model 12 Operator's Guide, 
GC21-5144, and in Part II of this manual. 


Program Description 
The sample program is called Prime Number Test Program. 


The program reads a number from the console display 
data switches, tests to see if it is a prime number, and 


Appendix F: Basic Assembler Sample Programs 


indicates the results of the test on the message display 
unit. If the number zero is tested, the program is 
terminated. 


Three halt codes are used in this program to request input 
and indicate whether the number is prime. They are: 


Halt Code Meaning 
EN Enter a number to be tested. 
IP The number tested is prime. 
NP The number tested is not prime. 


Figure 33 shows the OCL that assembles, link edits, and 
executes the sample program. Figure 34 shows the sample 
program statements. 
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IBM System/3 Basic Assembler Coding Form 


1BM 


GRAPHIC 


PUNCHING 
” INSTRUCTIONS 
DATE 


A 
PROGRAMMER 


— | 
Rs 

cee 

EEG oe 
ci oC : 


= 
2 
we 
= 
id 
Ee 
< 
t 
n 


IBM System/3 Basic Assembler Coding Form 


GRAPHIC 
PUNCH 


PUNCHING 
INSTRUCTIONS 


PROGRAM 


DATE 


PROGRAMMER 


Name Operation 
1 2 3 4 5 6} 78 9 10 11 1211 


STATEMENT 


“ 


Remarks 


~ 
a 
nt 
N 
~ 
- 
nt 
i=] 
i a 
Q 
© 
S 
© 
© 
© 
w 
© 
o 
o 
N 
wo 
= 
© 
io] 
© 
2 
B 
Ss 
wo 
8 
w 
ww 
B 
N 
w 
- 


Operand 
3114 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 WD 31 32 33 


SE] INAmel-lpiaisisiPiol | | |] |i Tt ttt 
alate tte HL 


i 5 
fe Ce ee de 
00) ee) eee 
oe a 


/\/| |p 
A 


NOTES: 


Name given to the output assembler object (O) program. 


5. 


Specifies the location of the assembler program. 


Module name and object program name (R). 


6. 


Name of assembler sample program in the source library. 


Specifies the object (O) program, stored on the Overlay 


Linkage Editor program pack by default. 


Specifies the source library with the sample program. 


Library in which the output assembler object (R) module 


is stored. 


4. 


if the system configuration does not include drive 2, references 
in the OCL to F2 and R2 must be changed to specify devices 


available on the system. 


Figure 33. Model 10 and Model 12 Sample Program OCL 
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OPTIONS NODECK 0001 


THE LIST OF CPTICNS USED DURING THYS ASSEMRLY YS-- NQODECK LIST, XREF REL CBJ 


SASSPR EXTERNAL SYPBCL LIST 


SYMBOL TYPE VER 13. MODO0O 01/30/76 PAGE 1 


SASSPR MODULE 


lal 


SASSPR PRIME NUMBER TEST PROGRAM 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT VER 13. MOD 00 01/30/76 PAGE 2 


2 * 0003 

3 * THIS PROGRAM READS A NUMBER FROM THE CONSOLE DISPLAY DATA SWITCHES, TESTS IT FOR CCC4 

4 * PRIMENESS, AND INDICATES THE RESULTS ON THE MESSAGE DISPLAY UNIT. 0005 

5 * 0006 

6 * THERE ARE THREE HALT CODES USED IN THIS PROGRAM: ccc? 

7 * HALT CODE MEANING 0008 

8 * EN ENTER A NUMBER TC BE TESTED. IF NUMBER ENTERED IS ZERO THE 0009 

9 * PRCGRAM TERMINATES. 0C10 

10 * 1p NUMBER ITS PRIME. 00121 

11 * ne NUMBER IS NOT PRIME. 0012 

12 * 0c13 

0000 13 SASSPR START O 0014 
0000 14 USING *,XR1 ESTABLISH BASE REGISTER OO1LEs 

0000 C2 01 0000 15 LA ®,XRY LCAD BASE REGISTER ocié 
0004 FO 7C 2F 16 BEGIN HPL X*2F*,x*7C8 *EN® HALT 0017 
0007 70 00 78 17 SNS SENSE (9XR1) 90 SENSE TEE DATA SWITCHES oc1e 
OOOA 5D 01 78 70 18 CLC SENSE (2,XR1) ZERO, XR) TEST INDICATION TC QUIT 0c19 
QOOE F2 O01 05 19 JNE FREPAR NUMBER TO TEST 0020 
0011 CO 87 0004 2c B 4 GC TO END OF NR cc21 
0015 84 0015 21 oc XL1°84¢ 0022 
22 * 0023 

23 * PREPARE THE INPUT NUMBER 0C24 

OO16 50 OL 78 76 24 PREPAR CLC SENSE(2,XR1),THREE(,XR1) TEST FOR ONE, TWO AND THREE 0025 
OOLA F2 04 46 25 JNH PRIME# - CALL ONE, TWO AND THREE PRIME CC26 
0010 78 01 78 26 TBN SENSE(,XR1),X*O1" TEST FOR EVEN 0C27 
0020 F2 90 40 27 JF NPRIME EVEN, NCT PRIME 0028 
0023 SC Ol TF 74 28 wvc TEST#(2,XR1) se TWO, XRL) 0C26 
0027 5C O01 78 78 29 wVC END #41(2— XR1) 9 SENSE( « XRL) DIVIDE INPUT BY TwC 0030 
0028 7C 00 79 30 wvt END#-1(,XR1).0 TO USE FOR ENO TESTING 0031 
O02E SE 02 7B 7B 31 ALC  END#41(34—XR1) sENDH4+1 (0, XR1) 0032 
0032 SE 02 78 7B 32 ALC ENC#41(3,XR1L),END##1(,XR1) 0033 
0036 SE 02 78 78 33 ALC END#41(3,XR1) -END#41(,XR1) 0C34 
003A SE 02 78 78 34 ALC END#41(3-XR1L) sEND#41(,XR1) 0c2s 
OO3E SE 02 78 78 35 ALC EXCH4L (3 eXR1LDSEND#FL(, XR1) 0036 
0042 SE 02 78 78 36 ALC END#4+1(3—xXR1) sEND# 41 (,XR1) 0C37 
0046 SE 02 78 78 37 ALC END#41(3—XR1L) -END#4+1(, XR1) 0038 
38 * 0039 

39% MAIN TEST LOOP oc4c 

004A SE O01 TF 72 40 LCOPST ALC TEST#(2,xXR1),¢ONE(,XR1L) INCREMENT YEST 0041 
OO4E 50 O1 TF 7A 41 Ctc TESTH(2eXR1L) sg ENDH(eXRID TEST FOR COMPLETE 0C42 
0052 F2 84 14 42 JH PRIME# CCMPLFETE, CALL IT PRIME 0042 
0055 5C 01 70 78 43 MVC TEMP AR(2,XR1 )e SENSE ()XR1L) MAKE COPY AND 0044 
0059 5F 01 70 7F 44 SUBTR SLC TEMPAR(2XR1L) »TEST#C XRL) FIND REMAINDER 0C45 
0050 DO 84 59 45 BP SUBTRUsXRL) BY SUBTRACTING 0046 
0060 DO O01 4A 46 PAZ CLCCPST(,XR1L) REMAINDER NOT ZERO 0047 
47 * oc4eé 

48 * NUMBER NOT PRIME 0049 

0063 FO 2F 3€ 49 NPRIME HPL X*3E",xX*2F¢ NOT PRIME (NP) HALT 0050 
0066 00 87 04 50 B BEGIN(»XR1) GC BACK TO BEGINING oc 
51 * 0052 

52 * NUMBER IS PRIVE ccs3 

0069 FO 03 3€ 52 PRIME HPL X*3Et, x #03¢ IS PRIME (IP) HALT 0054 
006C DO 87 04 54 ef BEGIAT.XR1) GO BACK TO REGINING 0055 


Figure 34 (Part 1 of 2). Listing of Statements in Model 10 and Model 12 Basic Assembler Sample Program 
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SASSPR PRIME NUMBER TEST PROGRAM 


ERR LOC OBJECT CODE 


OO6F 0000 
0071 0001 
0073 0002 
0075 0003 
0077 
0079 


0078 
007C 


OO7E 


ADDR 


co70 
0072 
0074 
007E 
0078 
OOTA 
OO7R 
0070 
OOTF 
o0ol 
0090 


STMT 


SOURCE 


* 
* 
ZERO 
ONE 
Twe 
THREE 
SENSE 
ENO# 


TEMPAR 
TEST# 
XR1 


TOTAL STATEMENTS IN ERROR IN THIS ASSEMBLY = 


SASSPR 
SYMBOL 


SASSPR 
BEGIN 
ENN # 


LOOPST 
NPRIME 
ONE 
PREPAR 
PRIME# 
SENSE 
SUB TR 
TEMPAR 
‘TEST# 
THREE 
TWO 
XRI 


ZERO 


LEN 


001 
003 
002 


004 
003 
002 
004 
003 
002 
004 
002 
002 
002 
002 
ocl 


002 


VALUE 


0000 
0004 
OOT7A 


OO4A 
00€3 
0072 
0016 
0069 
0078 
0059 
0070 
OO7F 
0076 
0074 
0001 


0070 


DEFN 


0013 
0016 
00€é3 


0040 
CC4S 
0059 
0024 
0053 
0062 
0C44 
0065 
0066 
00é1 
0cé0 
0067 


cc58 


CRCSS REFERENCE 


REFERENCES 
0068 

0050 0054 
c029* 0030* 
0036 O003€*% 
0046 

0027 

0040 

0019 

0025 0042 
00174 0018 
0045 

CO043* 0044*% 
0028* 0040* 
C024 

0028 

0014 0015* 
0030 0031 
0036 0037 
0046 0050 
0018 


0031 
C037 


C024 


0041 


0017 
0031 
C027 
0054 


STATEMEAT VER 13. MODOO 01/30/76 PAGE 3 

CATA AREA 
oC TL2¢08 BINARY ZERO 
oc XL2*°Q001° CNE 
cc PL2*00000010' TWO 
oC AL2(3) THREE 
oS cl2 
0S ct2 
DS Cll 
oS cL2 
os CL2 
FOL 1 PASE RECISTER 
END $ASSPR 

0 

VER 13. MODOO 01/30/76 PAGE 4 

0031* 0032 0032* 0033 0033* 0034 0034* 0035 0035% 
CC27* 0041 
0026 0029 0042 
0044 
0018 0018 0024 0024 0026 0028 0028 0C29 0029 
CC32 0032 0033 0033 0034 0034 0035 0035 0036 
CC40 OC4C CC41 «CC41 40043 «0043 «40044 (0044 0045 

0 


TOTAL STATEMENTS IN ERROR YN THYS ASSEMBLY = 


OL105 I 
OL103 I 


THE CODE LENGTH OF $ASSPR IS 


128 DECIMAL. 


TCTAL NUMBER OF LIBRARY SECTCRS RECUIRED IS 
NAME-—SASSPR,_PACK-RIRIR 1, UNTT—RI gRETAING Ts LIBRARY —-RyCATEGORY-000 


2 


Figure 34 (Part 2 of 2). Listing of Statements in Model 10 and Model 12 Basic Assembler Sample Program 
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ocs7 
0058 
0059 
océc 
0061 
CC62 
O0€2 
0064 
0065 
O06E 
0067 
O0EE 
OCcé6s 


MODEL 15 SAMPLE PROGRAM 


This section describes the sample program and explains the 
operating procedures necessary for executing it. General 
operating procedures for the Basic Assembler are found in 
the IBM System/3 Model 15 Operator’s Guide, GC21-5075 
and in Part II of this manual. 


Program Description 


The sample program is called System Input Device List 
Program. The program reads records from the system input 
device and lists them on the system printer. Statements 

are read and listed until one of the delimiters (/*,/&, or 

/.) is encountered. If the delimiter is /*, another file can 

be listed under operator control. 


There are three messages displayed by this program: 


Message Meaning 


EOF ON SYSIN End of file encountered on the 

system input device. More files 

can be printed if the EOF condi- 

tion is caused by /*. The operator 

replies P to print another file or 

C to cancel. 

PRINTER ERROR A permanent printer error has 

~ occurred. The program issues the 
message and then goes to end of 
job. (The message is displayed and 
then removed when end of job is 
reached. However, the message is 
in the system history area and may 
be displayed from there.) 

SYSIN ERROR A permanent system input device 

error has occurred. The program 

issues.the message and then goes to 

end of job. (The message is dis- 

played and then removed when end 

of job is reached. However, the 

message is in the system history area 

and may be displayed from there.) 


The sample program uses Model 15 macros and therefore 
the assembly step must be preceded by a macro processor 
step. 


Figure 35 shows the OCL that assembles, link edits, and 
executes the sample program. Figure 36 shows the sample 
program statements. 
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IBM System/3 Basic Assembler Coding Form 


CARO ELECTRO NUMBER 


Es ea ta en lee 
4 


i 


aa 
TTT 
Hea 
REE 
Pale 
Hea 
eat 
nae 
eae 
Bae 
Fue 
fale 
mee 
eee 
EeERa 
BREE 
LT | 

5 


ee Oe ae a 
a 


GRAPHIC 


PUNCHING 
INSTRUCTIONS 


IBM System/3 Basic Assembler Coding Form 


PROGRAMMER 


« 
w 
= 
2 
< 
« 
8 
3 


Cee Sean Gee a a Ga a He 
Pe] IS ON NIST INT [~~] JSS IN 
Pt NTS NIN ST 


(aaa 


SSeS 


Module name and object program name (R). 


Specifies the system pack. 
drive 2 or the 5445 drive 1, references in the OCL to R2 


and D1 must be changed to specify devices available on 


If the system configuration does not include the 5444 
the system. 


D: 
6. 


Name of the assembler sample program in the source 


library. 
Library in which the output assembler object (R) 


module is stored. 
Name given to the output assembler object (O) 


Specifies the program pack. 
program. 


L 
2. 
4. 
Figure 35. Model 15 Sample Program OCL 
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OPTIONS NODECK 


THE LIST OF OPTIONS USED DURING THIS ASSEMBLY I[S-- 


SASSPR 
SYMBOL 


SASSPR 
SSLPRT 


SASSPR 


ERR LOC 


$ASSPR SYSTEM 


‘ERR LOC 


4000 
4000 
4004 


GIJOF 
4012 
4015 


4018 


4018 


4022 
4025 
4928 
4028 
402E 
4931 
4034 
4937 
403B 


4042 
4045 
4048 
4048 
&04E 
4051 
4054 


OBJECT TO LIBRARY INLY 00010000 


NODECK ,»LIST eXREF,REL, O85 


EXTERNAL SYMBOL LIST 


TYPE VER 01, 40D 00 11~09-73 PAGE 1 
MODULE 
EXTRN 
UBJECT CODE ADDR STMT SOURCE STATEMENT VER Dl, 40) OO 11-99-73 PAGE 2 
l ICTL 1Le7l 
2 ISEQ 73,80 
3 PRINT NOGEVsVIDATA 
INPUT DEVICE (SYSIN) LIST PROGRAM 
OBJECT CODE ADDR STMT SOURCE STATEMENT VER Ol, MO) 00 11-99-73 PAGE 3 
5 * THIS PROGRAM READS A FILE FROM THE SYSTEM INPUT DEVICE AND LISTS 
6 * IT ON THE PRINTER. 
T * 
8 * THERE ARE THREE MESSAGES ISSYED BY THIS PRIGRAM: 
Q * MESSAGE TYPE MEANING 
10 * ‘EOF ON SYSIN® WIOR END JF FILE ENCOUNTERED UN SYSIN. 
ll * MORE FILES MAY BE PRINTED IF THE 
12 * EOF CONOITION IS CAUSED BY A "/*t, 
13 * THE JPERATOR REPLYS TO THIS MESSAGE 
14 * ARE *P* TO PRINT ANOTHER FILE AND 
15 * 'l' TO SANCEL AND SO TO EOJ. 
16 * "PRINTER ERROR* wTI THERE HAS BEEN A PERMANENT PRINTER 
17 * ERROR. T4E PANGRAM ISSJES THE 
18 * MESSAGE AND GOFS TO END OF JOB. 
19 * 'SYSIN ERROR® ATO THERE HAS BEEN A PEAMANENT SYSIN 
20 * ERROR. T4E PROGRAM ISSUES THE 
21 * MESSAGE AND SJES TO END OF JOB. 
23 $ASSPR START X*"4000! 
0001 24 EXTRN $$LPRT PRINTER DATA MANAGEMENT 
408C 25 USING BASE,BRG ESTABLISH A 3ASF REGISTER 
C2 01 408C 26 LA BASE »BRG FOR THE DATA AREAS 
28 * PREPARE THE PRINTER FILE FOR USF 
D2 02 07 29 LA PRNDTF{,BRG) s$DTF 
30 * $ALOC ALLOCATE PRINTFR FILE 
33 * $OPEN JPEN PRINTER FILE 
BC 01 13 36 MMVI - $DFSPA( ,$9TF) 91 SET FOR SINGLE SPACE 
BC 40 OF 37 MVI = $DFOPC (1, $9TFI,$9CPRT SET GP-CODE TU PRINT 
7C Ql 00 38 MVE = SYSINL#$SRFCT(,8RG),$SRRDE SET SYSIN JP-CIDE FIR 1ST BUFF 
40 * PREPARE TO PRINT A NEW FILE 
7c Ol 17 41 FILES MVI  PRNDTF+$0FSKB(,8RG) 91 SET T3 SKIP BEFIRE FIRST PRINT 
43 * READ FROM SYSIN AND PRINT UNTIL END OF FILE 
D2 02 00 44 FILEL LA SYS INL (+BRG)sSYS 
45 * $READ OPC-N | READ FROM SYSIN 
BD 50 00 “49 CLI $SRFCT(,SYS),$SRE9F TEST FOR EOF = ("7% 94 /E4"44/,") 
F2 81 30 50 JE EOF 
BD 80 900 51 CLI = $SRFCT( SYS) p$SREQU TEST FOR EQS (97EtV 472") 
F2 81 53 52 JE EQJ 
BD 60 00 53 CLE «= $SRECT(,SYS) 9 $SRERR TEST FIR SYSIN ERROR 
F2 81 3C 54 JE SYSER 
BC 00 00 55 MVI  —- $SRFECT (SYS) 4 $S2R90 SET FOR NEXT SYSIN REAQ 
6C OL 14 04 56 MVC = PRNDTF#$DFLRA(2,BRG) »$SRBF2(ySYS) POINT TO CURRENT RECIRD 
D2 02 97 57 LA PRNOTF( 4325). $0TF 
58 # $PUTP DEV-1493 PRINT THE CURRENT RECIRD 
BO 41 OE 60 CLI $DFCMP(,$9TF),S2PPER TEST FOR PRINTER FRROR 
F2 81 32 61 JE PRNERR 
BC 00 10 62 MVI  $DFSKB(,$0TF),0 SFT FIR NO SKIP 3EFORE 
BD 48 OE 63 CLI  $DFCMP(,$9TF),$CPUVF TEST FOR PAGE OVERFLOW 
F2 91 03 64 JNE  NOSKIP 
BC 01 10 65 MVE —- $DFSKB(,$DTF) 41 SET FOR SKIP TO LINE INE 
CO 87 4018 66 NOSKIP B FILEL 


Figure 36 (Part 1 of 4). Listing of Statements in Model 15 Basic Assembler Sample Program. 


900201709 
99930 )00 
J0040090 


90069009 
00070000 
90080909 
90090000 
90 10000 
90119900 
00120000 
J91300090 
00140909 
00150000 
00169000 
00170000 
90180009 
00190000 
00209900 
00219900 
992209090 


10240900 
30250900 
00260900 
90279090 


002909900 
003900090 
90319000 
Y0329000 
90330909 
00349909 
00350000 


9037900 
90330300 


0040090) 
00410000 
904290000 
99430909 
00440900 
00450309 
99460309 
00470900 
00480900 
00490009 
90500900 
99510990 
J0529909 
99539900 
99549900 
00550000 
00569700 
005709990 
00580900 
JJ5999909 
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SASSPR SYSTEM INPUT 


ERR LOC 


£058 
&O5F 
4062 
4065 
4068 
406C 
4070 


407T 


407A 


4081 


SASSPR SYSTEM INPUT 


ERR LOC 


40C3 


400C 
40E8 


4O0F3 


4100 
4100 
4180 


&200 


@27C 
427C 
4306 


OBJECT CODE 


D2 02 28 


70 C3 37 


F2 81 1C 
7D OF 37 
CO 81 4018 
CO 87 4058 


D2 02 38 
F2 87 O07 


D2 02 44 


D2 O02 07 


OBJECT CODE 


ET 


C 50 6C 640060540E2 
E2E8E2C90540C5D9 


0709C9D5E3C50940 


0000000000000000 
0000000000000000 


0000000000000000 


4040404040404040 


0000000000000000 


TOTAL STATEMENTS IN ERROR 


ADDR STMT 


4081 


68 
69 
70 
14 
75 
76 
77 
78 


80 
81 
82 
86 


88 
89 
90 


95 
96 
97 
98 
101 


ADDR STMT 
105 
408C 106 
108 
109 
110 
116 
133 
134 
135 
136 
160 
223 
224 
225 
40C3 238 
239 
240 
251 
252 
40DC 263 
40ET 264 
40E8 265 
GOF2 266 
40F3 267 
40FF 268 
270 
271 
4100 272 
41LTF 273 
4180 27% 
G1FF 275 
4200 276 
422€ 277 
279 
280 
427C 281 
4305 282 
4306 283 
4337 284 
286 
0001 287 
0002 288 
0002 289 
4000 290 


DEVICE (SYSIN) LIST PROGRAM 


SGURCE STATEMENT VER Ol» 43D 00 11-09-73 PAGE 4 


* END OF FILE ON SYSIN 


EOF LA 
* 


EOFMSG( ,B8RG),LOG 
WTOR EDF MESSAGE 


REPLY(,BRG),C*C* OPERATOR SAY CANCEL 


EOJ 

REPLY (,BRG),C*P® OPERATOR SAY PRINT ANOTHER .- 
FILES 

E OF INVALID REPLY, TRY AGAIN 


* ERROR ON SYSIN 


SYSER LA 
* $LOG 
J 


SERMSG(.BRG),LOG 
ATD SYSIN ERROR MESSAGE 
EQJ GO TO EOJ 


* ERROR ON PRINTER 


DEVICE (SYSIN) LIST PROGRAM 


PRNERR LA PERMSG(,8RG) »LOG 
* $LOG WTI PRINTER ERROR MESSAGE 
* END OF JOB ROUTINE 
EQJ EQU * 
LA PRNOTF(,8RG), SDOTF 
* $CLOS CLOSE PRINTER FILE 
+ $EOJ 590 TO EOJ 
SOURCE STATEMENT VER Oly 43D 00 11-09-73 PAGE 5 
* CONSTANTS AND DATA AREAS 
BASE EQU: * BASE REGISTER ADDRESS 


* SYSIN TABLES 


*YSINL $RLST 
x 


* $RLSD 


* PRINT FILE 
*RNOTF S$DTFP 
* 
* 


* $OTFO 


* SYSTEM LOG 
*O0FMSG $LWTO 
* 

REPLY OC 
*ERMSG $LWTO 
* 

*ERMSG S$LWTD 
* 


IN THIS ASSEMBLY-- 


BUFL-BUFFU1L»BUF2-3UFFR2, SYSIN PARAMETER LIST 
WORK-WORKAR 
SYSIN EQUATES 


TABLES 

DEV-1403,RCAD-0,10BA-PRNIOBs, PRINT FILE DIF 

I OAA-PRNBUF ,RECL-96, 

OVFL-60,PAGE-66 

D1403-Y PRINTER DTF DISPLACEMENTS 


TABLES 

COMP—AS sHALT~AM, SUBH-PGyTLEN-12, SYSIN EOF WTOR 
TADR-EDFMSC ,REPLY-Y,2LEN-1,RADR-REPLY 

CLI*x® WTOR REPLY 

COMP—-AS »HALT-AM,y SUBH-PG,TLEN-1L1, SYSIN ERROR WTO 
TADR-SERMGC 

COMP~-AS ¢4ALT-AM, SUBH-PG_TLEN-13, PRINTER ERROR WTD 
T ADR-PERMGC 


EOFMGC EQU-) * 

DC CLL2"EOF ON SYSIN® 
SERMGC EQU) * 

oc CLL1*SYSIN ERROR® 
PERMGC EQU- * 

oc CLI3*PRINTER ERROR® 
* SYSIN BUFFER AND WORK AREAS 

ORG *,128 ORG TO REQUIRED BOUNDARY 
BUFFR1 EQU- * BUFFER ONE 

DC XL128¢0° 
BUFFR2 EQUU * BUFFER TWO 

Dc XL128'0# 
WORKAR EQU- # WORK AREA 

DC XL47*0O8 
* PRINTER BUFFER AND WORK AREAS 

DRG = #9256yX*7C* ORG TO REQUIRED BOUNDARY 
PRNBUF EQU- * PRINTER BUFFER 

Dc CLI38* * 
PRNIOB EQUE * PRINTER 108 

DC XL50"08 
* REGISTER LABELS 
BRG EQU il BASE REGISTER 
SYS EQU) 2 SYSIN PARAMETER LIST POINTER 
LOG EQU 2 SYSLOG PARAMETER LIST POINTER 

END $ASSPR 

0 
0 


TOTAL SEQUENCE ERRORS IN THIS ASSEMBLY-- 


Figure 36 (Part 2 of 4). Listing of Statements in Model 15 Basic Assembler Sample Program. 


96 


00610000 
90620900 
00630000 
00640000 
00650000 
00660000 
00670000 
00680000 


00700000 
00710000 
00720000 
007309000 


00750000 
00760000 
00770000 


00790000 
90800000 
00810000 
00820000 
00830000 


00850000 
00860000 


00880000 
X00890000 
00900000 
00910000 


00930000 
X00940000 
X¥00950000 

00960000 

00970000 


00990000 
X01000000 
01010000 
01020000 
X01030000 
01040000 
X01050000 
01060000 
01070000 
01080000 
01090000 
01100000 
01110000 
01120000 


01140000 
01150000 
01160000 
01170000 
01180000 
01190000 
01200000 
01210000 


01230000 
01240000 
01250000 
01260000 
01270000 
01280000 


01300000 
01310000 
01320000 
01330000 
01340000 


SASSPR CROSS REFERENCE 


SYMBOL LEN VALUE DEFN REFERENCES VEZ Ol» WOI 09 11-99-73 PAGE § 


$$SLPRT 001 0001 0024 0059 
$ASSPR 001 4000 0023 0290 
$ALCDI O01 0010 0193 
$ALDAT 001 0001 0198 
$ALH56 001 0002 0196 
$ALINT O01 0004 0195 
SALMFM OOL 0008 0194 
$A1PCH O01 0020 0192 
$ALPRT 001 0040 0191 
$ALPR2 O01 0001 0197 
$ALRD 001 0080 0190 
$A2ALL 001 0040 0203 
$A2AMP 001 0004 0208 
e $AZEOF 001 0008 0206 

$A2HUC 001 0002 0207 

$A2INO O01 0080 0202 

$A2MBF OOL 0010 0205 
4 $A20PN 001 0001 0209 
- $A2SIN 001 0020 0204 

$CPCND 001 0010 0214 

$CPEOF 001 0042 0217 

$CPOVF 001 0048 0213 0063 
~ $CPPER 001 0041 0216 0060 
$CPSUC 001 0040 0215 
$DFARR 001 0009 0168 
$OFATL O01 0002 0164 
$DFAT2 901 0003 0165 
$DFCHA 001 0005 0166 
$DFCHB 001 0007 0167 
$DFCMP O01 OOOE OL71 0060 0063 
$DFDEV O01 0000 0162 
$DFLP 001 001D 0183 
$DFLRA 001 O000D 0170 0056+ 
$DFMSK 9OL OO1F 0185 
$DFOPC O01 OOOF 0172 9037% 
$OFOVF 001 OOIC 0182 
$DFPGS 001 0020 0186 
$DFPIB O01 OO17 0179 
$OFPIO 001 0019 0180 
$DFPOS O01 OO1E 0184 
$DFPQ O01 0014 0177 
$DFPR O01 0015 0178 
$DFPRL 001 0018 0181 
$DFSKA OOL 0012 0175 
$DFSKB 001 0010 0173 0041* 0062* 0065* 
$DFSPA 001 0013 0176 0036# 
$DFSPB O01 OO11 0174 
$OFUPS 001 0001 0163 
SDFXRS 001 0008 0169 
$DTF 001 0002 0161 0029* 0036 0037 0057* 9060 3052 2063 0065 9097* 
$OCPRT O01 0040 0221 0037 
$SRBFL 001 0002 0118 
$SRBF2 001 0004 0119 0056 
$SREOF OO 0050 0129 0049 
$SREOJ 001 0080 0131 0051 
$SRERR 001 0060 0130 0053 


Figure 36 (Part 3 of 4). Listing of Statements in Model 15 Basic Assembler Sample Program. 
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$SASSPR CROSS REFERENCE 


SYMBIL LEN VALUE DEFN REFERENCES VER Ole MOND OO 11-99-73 PAGE 7 


$SRFCT OOL 00900 0117 0038* 9049 0051 0053 0vU55* 
$SRNOM GOL 0040 0128 

$SRRD 901 0009 0126 

$SRROD O01 0000 0123 0055 

$SRRDOF O01 0001 0124 0038 

$SRRDL OOL 90002 0125 

$SRWRK OO1 0006 0120 


BASE 001 408C 0106 0025 0026 
BRG 001 0001 0287 0025 0026* 0029 0038 9041 0044 0056 90957 0069 3074 O076 0081 
0089 0097 


BUFFRL OOL 4100 0272 0113 
BUFFR2 O01 4180 0274 0114 


EOF 003 4058 0069 0050 0078 

EOFMGC 901 40DC 0263 0235 . 
EOQFMSG OOL 4084 0227 0069 

EQJ 001 4081 0096 0052 0075 0086 

FILEL 003 4018 0044 0066 

FILES 003 4018 0041 0077 r 
LOG 001 0002 0289 0069* 0081* 0089* “ 


PRNOTF OO1 4093 0137 0029 J041* 0056* 0057 0097 


PRNIOB VOL 4306 0283 0152 

REPLY 001 40C3 0238 0074 0076 0237 

SERMGC OOL 40E€8 0245 9250 

SERMSG OOL 4004 0242 JO81l . 

SYS 001 0002 0288 0044* 0049 0051 0053 0055 0056 
SYSER 003 4070 0081 0054 

SYSINL OOL 408C O111 0038* 9044 

WORKAR OOL 4200 0276 0115 


TOTAL STATEMENTS IN ERROR IN THIS ASSEMBLY —-- 0 


TOTAL SEQUENCE ERRORS IN THIS ASSEMBLY-- 0 


O0L105 I THE CODE LENGTH OF $ASSPR IS 824 DECIMAL. 
OL103 I TOTAL NUMBER OF LIBRARY SECTORS REQUIRED IS 5 
NAME-$ASSPR,PACK-RIRLRL UNE T-RL,RETAEN-T,LISRARY-R,CATEGORY-999 


Figure 36 (Part 4 of 4). Listing of Statements in Model 15 Basic Assembler Sample Program. 
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Appendix G: IBM 1255 Magnetic Character Reader Support (Models 12 and 15 Only) 


Support is provided by the following IBM-supplied 
subroutines: 


@ SUBRO7 — 1255 (Model 15 only) 

@ SUBRO8 — 1255 (Model 12 and Model 15) 

@ SUBRO9 — 1419 (Model 12 and Model 15) 

For detailed information concerning this support, see the 


IBM System/3 Models 12 and 15 1255 and 1419 Magnetic 
Character Reader Reference and Program Logic Manual, 


GC21-5132. 
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100 (101-104 deleted) 


$WORK 2 file 34 
// CEND card 33 
// SWITCH statement 31 


absolute displacements 12 
absolute expressions 7 
absolute object program 28 
address constant 18 
addressing 12 
base-register displacement method 12 
data addressing 13 
direct method 12 
instruction addressing 13 
relative addressing technique 12 
symbolic (direct) 12 
assembler 
coding conventions 8 
coding form 9 
functions 1 
instruction statements 17 
data definition 18 
fields 8 
format 8 
listing control instructions 20 
program control instructions 22 
symbol definition instruction 17 
listing 29 
assembler language subroutines 
linkage to COBOL 86 
linkage to FORTRAN 86 
linkage to RPGII 71 
placing in Rlibrary 36 
assembling a source program 28 
asterisk 
use in comment statement 10 
use as location counter reference 6 
attributes 
length atribute 14 
value attribute 14 


base address 12 

base register 12 

base-register displacement addressing 12 
basic assembler sample program 89 
beginning column 25 

binary constant 6, 19 

binary self-defining term 6 


calling a source program 31 
category level 27 
CATG operand 27 
character 
constants 19 
self-defining terms 6 
COBOL linkage 86 


Index 


code 
control 43 
mnemonic 1 
operation 9, 43 
machine 47 
mnemonic 1 
Qcode 17,43 
coding conventions, assembler 8 
coding form, assembler 9 
coding sample for SPECIAL device 82 
COMLx operands 29 
comment statement 10 
complement (two’s complement form) 19 
constant (see also self-defining term) 
address 18 
binary 19 
character 19 
data 18 
decimal 19 
define constant (DC) 18 
hexadecimal 19 
integer 19 
negative (see integer constant) 
paddingof 19 
truncation of 19 
control card code for assembler subroutine 76 
control statements 27 
control cards, LDG program (see Library Deck Generator 
parameter card) 
control section length 27 
control code 43 
conversion, punch 33 
cross reference data 35 
cross reference listing 28, 40 


data 

addressing 13 

constant 18 
data defining instructions (DC and DS) 18 
data file requirements 34 
DC (define constant) instruction 18 
decimal constant 19 
decimal self-defining term 5 
deck, object 17 
define constant (DC) instruction 18 
define storage (DS) instruction 19 
diagnostics 40 

table of 69 
direct addressing 12 
displacement 12 

absolute 12 

relocatable 12 
DROP statement 25 
DS (define storage) instruction 19 
duplication factor 

with DC instruction 18 

with DS instruction 19 


Index 105 


EJECT statement 20 
END record 33 
END statement 26 
ending column (see also ICTL statement) 25 
entry (see fields) 
entry point 25 
ENTRY statgment 25 
EQU (equate symbol) statement 17 
error code 69 
error conditions, LDG program 81 
error information 35 
ESL record 32 
explicit length 15 
expression 7 
absolute 7 
evaluation of 7 
multi-term 7 
relocatable 7 
rules for coding 7 
extended mnemonic codes 14, 48 
external symbol list 39 
table size 42 
EXTRN statement 25 
EXTRN subtype 25 
specifying 27 


fields(s) 
assembler statement 8 


identification-sequence 10 

name 10 

operand (machine instructions) 14 
operation 10 

remark 10 


files 
source 34 
object 34 
work 34 
format(s) 


assembler statement 8 
machine-instruction statement 13, 43 
operand 14 

format control, input 22 

FORTRAN linkage 86 


groups machine-instruction operand 15 


HEADER record 32 

HEADERS statement 27 
hexadecimal constants 19 
hexadecimal self-defining terms 6 


ICTL (input format control) statement 22 
identification-sequence entry (field) (see also ISEQ statement) 10 
I-field (immediate data) 16 

implied length 15 


input format control 22 
input sequence checking (ISEQ) statement 22 
instruction(s) 

addressing 12 

assembler instruction statements 17 

data defining 18 

listing control 20 


106 


instruction(s) (continued) 
machine-instruction statements 13 
program control 22 


symbol definition (EQU) 17 
types 17 
integer constant 19 
intermediate text 34 
ISEQ (input sequence checking) statement 22 


Jcards 77 
K cards 77 


label (see symbol and name entry) 
language 
machine (see also machine instruction formats) 1 
RPGII 71 
symbolic 1 
Lcards 78 
length(s) 
attribute 14 
control section 27 
explicit 15 
implied 15 
subfield 14 
of data definition instructions 18 
Library Deck Generator parameter card 80 
Library Deck Generator Program 76 
linking 
to COBOL 86 
to FORTRAN &6 
toRPGII 71 
listing control instructions 20 
listings, program 28, 38 
loading the assembler 29 
location counter 6 | 
control of (see also START andORG) 13 
location counter reference (*) (see also terms) 6 


machine-instruction(s) 13 
format 43 
list of 43 
mnemonic codes 14 
operands 14 
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